如何写loop合併到工作表上

sisusum

老师们，我已经写了从第2个Sheet第5个Sheet各自的储存格A3到G3汇集到Sheet"Chart"内，但要怎样写才能自动loop把第2个Sheet第5个Sheet各自的储存格A4到G4也汇集到Sheet"Chart"，然后是储存格A5到G5一直重複下去呢？

Sub 宏6()

    '1

    Sheets("二分之一层").Select

    '2

    Range("A3").Select

    '3

    Range(Selection, Selection.End(xlToRight)).Select

    '4

    Selection.Copy

    '5

    Sheets("Chart").Select

    '6

    Range("C3").Select

    '7

    ActiveSheet.Paste

    '8

    ActiveCell.Offset(1, 0).Select

    '9

    Sheets("四分之一层").Select

    '10

    Range("A3").Select

    '11

    Range(Selection, Selection.End(xlToRight)).Select

    '12

    Selection.Copy

    '13

    Sheets("Chart").Select

    '14

    ActiveSheet.Paste

    '15

    ActiveCell.Offset(1, 0).Select

    '16

    Sheets("八分之一层").Select

    '17

    Range("A3").Select

    '18

    Range(Selection, Selection.End(xlToRight)).Select

    '19

    Selection.Copy

    '20

    Sheets("Chart").Select

    '21

    ActiveSheet.Paste

    '22

    ActiveCell.Offset(1, 0).Select

    '23

    Sheets("88层").Select

    '24

    Range("A3").Select

    '25

    Range(Selection, Selection.End(xlToRight)).Select

    '26

    Selection.Copy

    '27

    Sheets("Chart").Select

    '28

    ActiveSheet.Paste

    '29

    ActiveCell.Offset(1, 0).Select

End Sub

sisusum

首先谢谢你的代码，我要先下载用回看一下是不是这样子。

可能我讲得不够清楚，其实有4个工作表，分别叫(1/2层，1/4层，1/8层，88层)﹐上面的数据，我自己会手动添加进去。

我只要想要把这4个工作表上的数据合併到最后叫Chart的工作表上去。

Sheet"1/2层"的A3到G3汇集到Sheet"Chart"的C3到I3
Sheet"1/4层"的A3到G3汇集到Sheet"Chart"的C4到I4
Sheet"1/8层"的A3到G3汇集到Sheet"Chart"的C5到I5
Sheet"88层"的A3到G3汇集到Sheet"Chart"的C6到I6


然后再重覆的是
Sheet"1/2层"的A4到G4汇集到Sheet"Chart"的C7到I7
Sheet"1/4层"的A4到G4汇集到Sheet"Chart"的C8到I8
Sheet"1/8层"的A4到G4汇集到Sheet"Chart"的C9到I9
Sheet"88层"的A4到G4汇集到Sheet"Chart"的C10到I10

一直汇集下去，把前面的4个工作表的数据合併到Chart的工作表去。

我之前做的代码只是写了以下这个部份，但发现跑完了就不知道再怎样让其他的也自动跑下去。
Sheet"1/2层"的A3到G3汇集到Sheet"Chart"的C3到I3
Sheet"1/4层"的A3到G3汇集到Sheet"Chart"的C4到I4
Sheet"1/8层"的A3到G3汇集到Sheet"Chart"的C5到I5
Sheet"88层"的A3到G3汇集到Sheet"Chart"的C6到I6

所以想找老师们帮忙，请教一下，谢谢。

sisusum

谢谢老师，刚下载了看看。但出现了错误，是以下这句。

tempArr(i, j) = Worksheets(arr(k)).Cells(m + 2, j - 1)


另外有一个问题，Sheet"1/2层"的A3、Sheet"1/4层"的A3、Sheet"1/8层"的A3、Sheet"88层"的A3都分别变成了A1到A77，原来的数值不见了？？

sisusum

我尝试用F8运行看看，马上跳出这错误，也没写明是错什麽，头晕呀。

对呀，直接下载了你上载的示例也是错误。

好吧，我直接把原来数值填上，但现在代码有问题不能运行却是一个问题，请帮忙解决，谢谢。

sisusum

老师，我回去再下载一次看看，如果还是有这问题，我截图给你看看，谢谢你的帮忙。

sisusum

Henry D. Sy 发表于 2017-7-17 09:14
--------------
-----------
--------

老师，我试了一遍还是不行，你能看看截图是出了什么问题吗？我用的是OFFICE 2016版本的，拜托！

sisusum

Henry D. Sy 发表于 2017-7-17 23:54
你把chart工作表的上半部分截图上来看看

这是我从4#回覆上下了附件，打开了我就直接截图，看上去还正常，一到Merge这键就出现了错误，我没有更改什麽东西。

sisusum

会不会是因为繁体版本的关係？这次真的头大了

sisusum

红框内的乱码会有影响吗？

sisusum

好!!你看看试试，谢谢！