发布网友 发布时间:2022-02-23 23:15
共4个回答
热心网友 时间:2022-02-24 00:44
EXCEL:一个工作薄中多个工作表合并代码
在EXCEL中打开宏,将下列代码进行粘贴并保存。然后返回你需要合并的工作表中,运行此宏,看看效果吧。
Sub 合并sheets()
n = 12 '源表个数,根据需要修改!
nstart = 9 '每个单表数据的开始行数,根据需要修改!
k = nstart '目标表的行标
For i = 1 To n
irow = nstart '行标
While Sheets(i).Cells(irow + 1, 2) <> "" '后面个1以第2列数据的最后1行是空作为行结束标示,确定源表的行数,根据需要修改!
irow = irow + 1
Wend
Sheets(i).Rows(nstart & ":" & irow).Copy '复制源数据行
Sheets(n + 1).Activate
Sheets(n + 1).Cells(k, 1).Select
ActiveSheet.Paste '粘贴数据
k = k + irow - nstart + 1
Next i
End Sub
热心网友 时间:2022-02-24 02:02
在合并计算里添加你想要合并的数据就可以了,想要合并多少都可以!
热心网友 时间:2022-02-24 03:37
假设有1、2两个表格,因为工号是唯一的,你可以表1为母表以工号为引用依据用vlookup函数将表2的数据引过来。
例:表1,sheet1的a1:工号、b1:姓名、c1:考勤时间、d1:打卡时间;表2格式相同。在e1输入=vlookup(a1,'[表2.xls]sheet1'!a:d,4,false),然后将公式复制下去就可以了。注意,如果有新员工入职,要在母表添加工号等。
热心网友 时间:2022-02-24 05:28
xuxi