求助：怎么用VBA实现从一张表中提取几列数据到另一张表中区

呼唤公式和vba男 【 在 buptggss (版主) 的大作中提到: 】 : RT

Dim maxrow As Long Dim maxcolumn As Long Dim row As Long Dim column As Long Sub fuzhi() maxrow = Sheets("Sheet1").UsedRange.Cells.Rows.Count maxcolumn = Sheets("Sheet1").UsedRange.Cells.Rows.Count For column = 1 To maxcolumn For row = 1 To maxrow Sheets("Sheet2").Cells(row, column) = Sheets("Sheet1").Cells(row, column) Next Next End Sub 说明：这里列是按照有数据的最大列来算的。如果要指定列，可以将maxcolumn换成需要的列值即可。

不觉得用选择、复制、粘贴更快么。。。。呵呵 建议楼主把问题描述的具体一点，有个附件说明一下更好。 【 在 NingFaTiao 的大作中提到: 】 : Dim maxrow As Long : Dim maxcolumn As Long : Dim row As Long : ...................

方法有很多。