代码如下, 详见附件的示例文件。Sub MergeData()
'将其他sheet的同列数据合并到第一张sheet
Dim i As Integer, N As Integer
Dim j As Long, k As Long
N = Sheets.Count
'如果工作簿中只有一张工作表,则退出
If N = 1 Then Exit Sub
'确定工作表的列数(假定其他工作表都与第一张工作表数据结构相同)
'采用第一张工作表中第一列最后一行不为空的单元格的相邻区域的列数来确定
'不采用A1相邻区域的列数来确定是防 止习惯将第1行留空或者第一行设为总标题,其下留空行的大众化习惯
With S...
右键总表,查看代码。粘贴如下代码。sub mysubdim i as integerfor i= 2 to sheets.count
sheets(i).range("e22:e" & sheets(i).[e65536].end(3).row).copyrange("iv3").end(xltoleft).offset(,1...