PasteSpecial Transposeに関する問題

Question

ワークシート "ProjList"のリストに基づいて可変数のワークシートを作成するためのマクロを作成しました。各シートは作成時に名前が付けられます。私はいくつかのセル（列A〜D）の値を "ProjList"から新しいシートにコピーしようとしています。私はペーストコマンドを使って正常に処理しましたが、データを転置します。

私が書いた：

Sub AddWorkSheets() 
    Dim RowNumb As Long 
    Dim LastRow As Integer 
    LastRow = Worksheets("ProjList").Cells(Worksheets("ProjList").Rows.Count, "D").End(xlUp).Row 

    For RowNumb = 2 To LastRow 
     Sheets("ProjList").Activate 
     Worksheets("ProjList").Range("A" & RowNumb, "D" & RowNumb).Copy 
     Sheets.Add 
     ActiveSheet.Name = Worksheets("ProjList").Cells(RowNumb, 4).Value 
     ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count) 
     ActiveSheet.Range("D1").PasteSpecial Paste:=xlPasteValues, transpose:=True 
    Next RowNumb 
End Sub 

を私は

を取得

RunTime Error 1004: PasteSpecial method of range class failed.

最初のワークシートが作成されますが、マクロはPasteSpecialラインで失敗します。

ご迷惑をおかけして申し訳ありません。
ありがとうございます！

Answer 1

これを試してみてください。

ActiveSheet.Range("D1").Resize(, 4).PasteSpecial Paste:=xlPasteValues, transpose:=True 

が怒鳴る、このコードを試してみてください。

Sub AddWorkSheets() 
    Dim RowNumb As Long 
    Dim LastRow As Integer 
    LastRow = Worksheets("ProjList").Cells(Worksheets("ProjList").Rows.Count, "D").End(xlUp).Row 

    For RowNumb = 2 To LastRow 
     Sheets("ProjList").Activate 
     Sheets.Add 
     ActiveSheet.Name = Worksheets("ProjList").Cells(RowNumb, 4).Value 
     ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count) 
     ActiveSheet.Range("D1").Resize(, 4) = Application.WorksheetFunction.Transpose(Worksheets("ProjList").Range("A" & RowNumb, "D" & RowNumb)) 
    Next RowNumb 
End Sub