VBA怎样设置复制所选列的一串单元格？(vba 自动筛选后，将其中的某一列复制到另一张sheet的一列中，该怎么做？)

vba 自动筛选后，将其中的某一列复制到另一张sheet的一列中，该怎么做？

在sheet2里面插入一个textbox1，一个CommandButton1用于筛选地区

Sub CopyCustom()

For i = 2 To Sheet1.Cells(65536, 1).End(xlUp).Row '循环表1各行

If Sheet1.Cells(i, 2) = Sheet2.TextBox1.Text Then '找到符合筛选条件的行

Sheet2.Cells(Sheet2.Cells(65536, 1).End(xlUp).Row + 1, 1) = Sheet1.Cells(i, 1) '把符合条件的行的客户名称给表2未A列的最后一个未使用的单元格赋值

'Exit For '如果只要筛选一位，可以用此跳出循环，当然数据表应该不止一个

End If

Next i

End Sub

'-------------------------------------------------------------------------------------------

Private Sub CommandButton1_Click()

Call CopyCustom '这只是一个调出按钮

End Sub

如果你想换种做法可以再问我，我这里只是就你问的把客户名字调出来。

假定随机抽取B列一个单元格数据填入C1单元格，代码如下：

Dim Ra As Range

Set Ra = Range([B1], Range("B" & Cells.Rows.Count).End(3))

[C1] = Ra(Int(Rnd() * Ra.Count + 1))

Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, Range("IV" & ActiveCell.Row).End(xlToLeft).Column)).Select

Sub a()

Set sh1 = Sheet1

Set sh2 = Sheet2

sh1.Range("a1").Copy sh2.Range("a1")

sh1.Range("b2").Copy sh2.Range("b2")

sh1.Range("c3").Copy sh2.Range("c3")

sh2.Select

sh2.Range("a1").Select

End Sub