GBKEE

¦^´_ 4# morris0914

1. Sub Compare()
   
2.     Dim R As Integer, C As Integer, TheCoL As Integer
   
3.     On Error GoTo Er
   
4.     With ActiveWorkbook
   
5.         .Sheets.Add(, .Sheets(.Sheets.Count)).Name = "¦X¨Ö"
   
6.     End With
   
7.     With Sheets("¦X¨Ö")
   
8.         .Move Sheets(2)
   
9.         Sheets(3).Range("A1").CurrentRegion.Copy .[A1]
   
10.         R = .[A1].End(xlDown).Row + 2
    
11.         For C = 1 To Sheets(3).UsedRange.Columns.Count
    
12.             For i = 3 To Sheets.Count
    
13.                  TheCoL = .Cells(R, .Columns.Count).End(xlToLeft).Column + 1
    
14.                  If .Cells(R, .Columns.Count).End(xlToLeft) = "" Then TheCoL = 1
    
15.                 With Sheets(i)
    
16.                     .Range(.Cells(R, C), .Cells(.Rows.Count, C)).Copy Sheets("¦X¨Ö").Cells(R, TheCoL)
    
17.                 End With
    
18.             Next
    
19.         Next
    
20.     End With
    
21.     Exit Sub
    
22. Er:                    '³B¸Ì "¦X¨Ö" ¤u§@ªí¤w¦s¦b
    
23.     Application.DisplayAlerts = False
    
24.     ActiveSheet.Delete
    
25.     Sheets("¦X¨Ö").Delete
    
26.     Application.DisplayAlerts = True
    
27.     Resume
    
28. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# morris0914
Q:§Úªº­¶­±¬O(menu, ¦X¨Ö, 4.log, 5.log)¬°¦ó¬O1 To Sheets(3)¡A¦Ó¤£¬OSheets(3) to.....
A: Sheets(3).UsedRange.Columns.Count ,¸ÑÄÀ: ²Ä3­Ó¤u§@ªí(4.log).¤w¨Ï¥Î½d³ò.øó¦ì.ª«¥ó¼Æ¥Ø= 4.log¤w¨Ï¥Î½d³òªºÄæ¼Æ

Q:  ¬°¦óŪ¨ìxlToLeft¬°ªÅ¥Õ®É¡ATheCol=1¡A¦Ó¤£¬O¥ÎxlToright
TheCoL = .Cells(R, .Columns.Count).End(xlToLeft).Column + 1  '¸ê®Æ¼g¦b¥ªÃ䪺Äæ¦ì + 1
A: ¦p¦¹ Aøó·|ªÅµÛ

Q:¬°¦ó¥Î¨ì2¦¸Cells   
A:VBAªº»¡©ú

1. Application¡BRange ¤Î Worksheet ª«¥ó®É¥Î Range ÄÝ©Ê¡C
   
2. ¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¤@­ÓÀx¦s®æ©ÎÀx¦s®æ½d³ò¡C
   
3. expression.Range(Cell1, Cell2)

½Æ»s¥N½X