求大神帮忙，把不同工作表内的信息汇总到同一个表格内

hjnh9000 · 发表于 2022-1-30 15:31

求大神帮忙，把不同工作表内的信息汇总到同一个表格内，谢谢！

tchh666 · 发表于 2022-1-30 16:20

如果每张表就一行的话

=INDIRECT($A2&"!R2C"&COLUMN(B1),)

wyftt1168 · 发表于 2022-1-30 19:55

Sub ttt() For Each i In Sheets If i.Name <> ActiveWindow.ActiveSheet.Name Then Debug.Print i.Name n = i.Range("b65536").End(xlUp).Row i.Range("b2:e" & n).Copy m = Range("b65536").End(xlUp).Row Range("b" & m + 1).PasteSpecial Range("a" & m + 1 & ":a" & m + n - 1).Value = i.Name End If Next End Sub

wyftt1168 · 发表于 2022-1-30 19:56

Sub ttt()
For Each i In Sheets
If i.Name <> ActiveWindow.ActiveSheet.Name Then
      Debug.Print i.Name
      n = i.Range("b65536").End(xlUp).Row
      i.Range("b2:e" & n).Copy
      m = Range("b65536").End(xlUp).Row
      Range("b" & m + 1).PasteSpecial
      Range("a" & m + 1 & ":a" & m + n - 1).Value = i.Name
End If
Next
End Sub

minchar · 发表于 2022-1-30 21:45

POWER QUREY

sobili · 发表于 2022-2-1 00:56

最近在学VBA，楼主看下这符合你的需求吗？

工作簿2.rar (10.13 KB, 下载次数: 4)

		自动登录	找回密码
密码			免费注册

[求助] 求大神帮忙，把不同工作表内的信息汇总到同一个表格内

评分