ギザギザの配列別のシートの配列値として列を使用する方法

Question

12 xlシートから特定の列（B、J、N、M、U、Vなど）をコピーして貼り付けるためにギザギザの配列を使用する方法別々のシートに保管することができます。例について

：私はB、J、N、M、私はB、J、N、O、U、V、X、AOは をコピーする必要がシート2に をコピーしなければならない必要シート1において 。 。 。 Upto Sheet12最後の行がコピーされるまで、この特定の列とその値が必要です。新しいワークシートの最後に12枚のシート値を貼り付ける必要があります。誰かがvbaを使用するのを助けます。

Answer 1

私は試してみるよ。それはこれのようなものですか？コードを必要に応じて変更し、必要に応じて列インデックスの配列をさらに設定します。これにより、これらの列のすべてが新しいシートに貼り付けられます。

Sub test() 
Dim a() As Variant 
Dim wb As Workbook 
Dim newWS As Worksheet 
Dim nextColumn As Long, lastrow As Long, i As Long, o As Long 
Set wb = ThisWorkbook 
Set newWS = wb.Worksheets.Add(After:=wb.Worksheets(wb.Worksheets.Count)) 
a = Array(1, 4, 6, 8, 10, 11) 'column indexes 

With wb 
    nextColumn = 1 
    For i = 1 To 12 
     With .Worksheets(i) 
      For o = LBound(a) To UBound(a) 
       lastrow = .Cells(65536, a(o)).End(xlUp).Row 
       .Range(.Cells(1, a(o)), .Cells(lastrow, a(o))).Copy 
       newWS.Cells(1, nextColumn).PasteSpecial xlPasteAll 
       nextColumn = nextColumn + 1 
      Next o 
     End With 
    Next i 
End With 

End Sub