如何将一个工作薄中多个工作表中行数统计出来，并形成汇总表（紧急）

changbaobin · 发表于 2013-5-17 11:51

求。。。。

changbaobin · 发表于 2013-5-17 11:52

每个工作表都有表名，我已经形成汇总表，，但现在还缺里面的行数

changbaobin · 发表于 2013-5-17 11:54

不会发图呀。。。。

TP512926 · 发表于 2013-5-17 12:04

changbaobin 发表于 2013-5-17 11:54
不会发图呀。。。。

没有实例，不知道表是什么样的格式。难猜

changbaobin · 发表于 2013-5-17 12:06

比如，，，我的工作表有152个工作表，名字分别为“长江小区”、“黄河小区”，以此类推，“长江小区”、“黄河小区”，这个汇总表我已经用

Sheets.Add before:=Sheets(1)
For X = 2 To Sheets.Count
Cells(X - 1, 1) = Sheets(X).Name
Next
End Sub

这个在工作表最前形成了汇总表，但我想把每个工作表的行数也统计到里面，有没有办法呀。。。比如长江小区有11行，就统计11在汇总里，黄河小区有13行，就统计13

changbaobin · 发表于 2013-5-17 12:09

对这个Sheets.Add before:=Sheets(1)
For X = 2 To Sheets.Count
Cells(X - 1, 1) = Sheets(X).Name
Next
End Sub

前面还有点东西，谁能再帮提醒下

紫气袭来爱无彊 · 发表于 2013-5-17 13:19

没有愿意帮忙吗。

sheet1 · 发表于 2013-5-17 13:24

这样试试呢
Sheets.Add before:=Sheets(1)
For x = 2 To Sheets.Count
Cells(x - 1, 1) = Sheets(x).Name
Cells(x - 1, 2) = Sheets(x).UsedRange.Rows.Count
Next

changbaobin · 发表于 2013-5-17 14:27

说是“宏”被禁止

TP512926 · 发表于 2013-5-18 13:10

Sub hz()
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "汇总"
x = Sheets("汇总").[a65536].End(3).Row
For Each sht In Sheets
If sht.Name <> "汇总" Then
With Sheets("汇总")
.Cells(x, 1) = sht.Name
.Cells(x, 2) = sht.UsedRange.Rows.Count
End With
x = x + 1
End If
Next
End Sub

复制代码

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

[求助] 如何将一个工作薄中多个工作表中行数统计出来，并形成汇总表（紧急）

评分