标题: 同一个文件中的多张工作表同一位置的数据复制到另一张新的工作表 [打印本页] 作者: dhxy1002sd 时间: 2009-10-17 19:14 标题: 同一个文件中的多张工作表同一位置的数据复制到另一张新的工作表 同一个文件中的多张工作表同一位置的数据复制到另一张新的工作表里面
且顺序排列
请高手指点一下 最好系统的说明下什么步骤,按什么按键和输入什么字符等
要处理的是大量数据,不要给我说ctrl在按两下C作者: pureshadow 时间: 2009-10-17 21:45
Sub test()
Dim i As Long
Dim rngTitle As Range
Dim vData As Variant
Dim lEndRow As Long
'重新调整"combine"表区域,将其调整与vData相同,并该区域值复制数据
With Sheets("combine")
.Cells(.[B65536].End(xlUp).Row + 1, 2).Resize(UBound(vData), 11) = vData
End With
End If
End With
Next
'该段代码是向"combine"表的第一列中添加自然编码
With Sheets("combine")
'从表格最底端向上移动行,并赋值给变量
lEndRow = .[B65536].End(xlUp).Row
'表格A3到A4区域输入数组
.Range("A3:A4") = Application.Transpose(Array(1, 2))
'选中A3至A4仿拖拉填充,相当于选中A3至A4单元格向下复制,达到自动填充序号的目的
.Range("A3:A4").AutoFill .Range("A3:A" & lEndRow)
End With
End Sub作者: wufeng980114 时间: 2010-1-29 10:50
学习了