精疲力竭的句子:如何在excel中将整个工作簿的某列,复制到一个工作表中。

来源:百度文库 编辑:中科新闻网 时间:2024/04/29 22:59:51
因工作需要,我需要将excel整个工作簿的某列,复制到一个工作表中进行数据统计,因工作量巨大,小弟苦不堪言,请各位大侠们帮忙解决。

方法1 VBA
假设你的表叫"目标工作表"
假设你每个工作表都是同样格式,第一行标题,第二行开始是数据
假设某列为A列
写一个宏:

Sub 复制到目标工作表()
For i = 1 To [a65536].End(xlUp).Row

ActiveWorkbook.Worksheets("目标工作表").[a65536].End(xlUp).Offset(1, 0) = Cells(i + 1, 1)
Next i
End Sub

如果不是A列,请把宏里的A替换为其它

方法2 如果你纯粹想合并求和的话,可以用“合并计算”功能,这功能可能把重复的字段合并计算

我需要将excel整个工作簿的某列?
整个工作簿?那可以有好多个工作表的,你是要复制,那就复制整个列,然后粘贴,没别的特别的办法