½Ð±Ð¦X¨ÖÀx¦s®æ°ÝÃD

morris0914

µ{¦¡¬O¦X¨Ö¦h­Ó¤u§@ªíªº­È¡A¦p¦ó¼g¦¨Åª¨ì¨S¦³­È¤~Â÷¶}¡A¦Ó¤£¬Oµù¸Ñ¤¤ªºBB¤Î50¬O³]©w©T©w­È


Sub Compare()
        Dim Sh As Worksheet, i%, iRowEnd%, Ar()
     With ActiveWorkbook                 
        .Sheets.Add(, .Sheets(.Sheets.Count)).Name = "¦X¨Ö"            
      End With
    With Sheets("¦X¨Ö")
        .Move Sheets(2)                     
        .UsedRange.Offset(1).ClearContents   
        For i = 2 To Sheets.Count           
            iRowEnd = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
            Ar = Sheets(i).Range("A2:BB" & iRowEnd).Value                                           '<========BB
            .Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(Ar), 50) = Ar         '<====50        
        Next
    End With
End Sub

morris0914

·PÁ¤j¤jªºÀ°¦£
¥Ñ©ó«e10¦æ¦³ªÅ¥Õ¡A©Ò¥H
iColEnd = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column
§ï¬°
iColEnd = Sheets(i).Cells(10, Columns.Count).End(xlToLeft).Column

morris0914

¦A½Ð±Ð¤j¤j¡A¬°¦óµLªk±N¦h­ÓÀɮצX¨Ö¤X
¥i¥H±NÀÉ®×Åܦ¨½d¨Ò1¡AÀɮצpªþ¥ó

morris0914

·PÁª©¤jªºÀ°¦£¡A§ÚªºVBA«Ü®z¡A³oµ{¦¡§Ú¤w¸g¬ã¨s«Ü¤[¡A¤@ª½¼g¤£¥X¨Ó¡C
¦A¦¸·PÁª©¤jªº¨ó§U¡C

morris0914

¦A½Ð±Ð¤@¤U¦³¨Ç¦a¤è§Ú¤£¤Ó¤F¸Ñ

For C = 1 To Sheets(3).UsedRange.Columns.Count                                                                                    '§Úªº­¶­±¬O(menu, ¦X¨Ö, 4.log, 5.log)¬°¦ó¬O1 To Sheets(3)¡A¦Ó¤£¬OSheets(3) to.....
            For i = 3 To Sheets.Count
                   TheCoL = .Cells(R, .Columns.Count).End(xlToLeft).Column + 1
                   If .Cells(R, .Columns.Count).End(xlToLeft) = "" Then TheCoL = 1                                         ' ¬°¦óŪ¨ìxlToLeft¬°ªÅ¥Õ®É¡ATheCol=1¡A¦Ó¤£¬O¥ÎxlToright
                      With Sheets(i)
                          .Range(.Cells(R, C), .Cells(.Rows.Count, C)).Copy Sheets("¦X¨Ö").Cells(R, TheCoL)   '¬°¦ó¥Î¨ì2¦¸Cells
                      End With
            Next
Next

morris0914

·PÁ¤j¤jªºÀ°¦£

morris0914

·PÁªO¤j¶W¸Ô²Óªº¸ÑĶ¡A¤@¬Ý´NÀ´