请教大神如何进行最简单的多表合成？琢磨了很久还是没搞出来。

shameful

主要遇到的问题是：因为每天的表的行数不固定，单纯录制宏就只能选择固定行数，会造成合成出错。不知道如何用语句实现ctrl+a（选择有内容的范围）。

其他的表格加工之类的工作基本都还是能通过录制宏来完成。
请教大神怎么得出具体的行数，并且怎么通过语句实现选择有内容的表格。（用了一个dim hangshu as long；hangshu=worksheet（sheet1）.usedrange.rows.count;  range("A1:H(hangshu).select",这个语句总是报错，实在是小白不太懂。)

shameful

人工置顶。。。。。。。。。。。。。。

lsc900707

这样的实例很多，找找参考。

lenghonghai601

1. Sub 按钮1_Click()
   
2. Dim sh As Worksheet, a%
   
3. a = 1
   
4. Worksheets("合成效果").Cells.Clear
   
5. For Each sh In Worksheets
   
6.     If sh.Name <> "合成效果" Then
   
7.         ARR = sh.UsedRange.Value
   
8.         sh.UsedRange.Copy Range("a" & a)
   
9.         a = Worksheets("合成效果").Range("a65536").End(xlUp).Row + 2
   
10.     End If
    
11. Next sh
    
12. 
    
13. End Sub

复制代码

lenghonghai601

1. Sub 按钮1_Click()
   
2. Dim sh As Worksheet, a%
   
3. a = 1
   
4. Worksheets("合成效果").Cells.Clear
   
5. For Each sh In Worksheets
   
6.     If sh.Name <> "合成效果" Then
   
7.         ARR = sh.UsedRange.Value
   
8.         sh.UsedRange.Copy Range("a" & a)
   
9.         a = Worksheets("合成效果").Range("a65536").End(xlUp).Row + 2
   
10.     End If
    
11. Next sh
    
12. 
    
13. End Sub

复制代码

獨一無2

range("A1:H(hangshu).select由于有变量存在要写成range("A1:H" & hangshu).select

amicuat

试试这个吧

lenghonghai601

1. Sub 按钮1_Click()
   
2. Dim sh As Worksheet, a%
   
3. a = 1
   
4. Worksheets("合成效果").Cells.Clear
   
5. For Each sh In Worksheets
   
6.     If sh.Name <> "合成效果" Then
   
7.         ARR = sh.UsedRange.Value
   
8.         sh.UsedRange.Copy Range("a" & a)
   
9.         a = Worksheets("合成效果").Range("a65536").End(xlUp).Row + 2
   
10.     End If
    
11. Next sh
    
12. 
    
13. End Sub

复制代码

魂断蓝桥

worksheet（sheet1）.usedrange.rows.count

1、括号写成的全角，应该是半角
2、SHEET1两边需要加双引号 比如 worksheet("sheet1")
3、usedrange.rows.count 这种用法不太准确，因为输入数据更改格式，再删除数据，就会多选一部分。

一般用 Cells(Rows.Count, 1).End(3).Row

shameful

amicuat 发表于 2018-6-22 14:01
试试这个吧

这个在我给的这个表里能用。但是把代码粘到我自己录制得宏里面之后就不执行了。但是也没报错。（因为要用宏调整格式之类的）不知道什么情况。