将选定行的列复制到另一个表格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