將選定行的列複製到另一個表格vba

Question

用戶應該選擇一些行（不一定在彼此之下），然後將每行的一些列複製到另一個表中，我該如何實現？ 我已經嘗試過application.inputbox，但它似乎不適用於範圍。

Answer 1

嘗試類似這樣的事情。不是超高效的，但是如果我瞭解你在找什麼，它應該完成工作。這將生成突出顯示行中第一個單元格的所有行的數組。希望這可以幫助。

Sub macro1() 
Dim a As Range 
Dim i As Integer 
Dim numRowsToCheck As Integer 
Dim rows() As Integer 
Dim length As Integer 

Set a = Selection 
numRowsToCheck = 100 
length = 0 
For i = 1 To numRowsToCheck 
    If Not Application.Intersect(Worksheets(1).Cells(i, 1), a) Is Nothing Then 
     length = length + 1 
     ReDim Preserve rows(length) 
     rows(length - 1) = i 
    End If 
Next i 

MsgBox (rows(0) & "," & rows(1) & "," & rows(2)) 'Check results 

For i = 0 To length - 1 
    'Copy stuff from row i to wherever you want it to go 
Next i 
End Sub