EXCEL 如何用VBA语言将一个EXCEL文件中不同sheet中的同一列数据按顺序导入到一个sheet中去？

代码如下, 详见附件的示例文件。 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 '确定工作表的列数(假定其他工作表都与第一张工作表数据结构相同) '采用第一张工作