ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦P­Ó¬¡­¶Ã¯¸Ì¦X¨Ö¦U¤u§@ªí(¦Ü¦P¤@­Ó¤u§@ªí)

¦P­Ó¬¡­¶Ã¯¸Ì¦X¨Ö¦U¤u§@ªí(¦Ü¦P¤@­Ó¤u§@ªí)

¦pÃD~~~

¦³¤Wºô§ä¨ì¥H¤UªºVBA¡A¦ý¹ê»Ú¾Þ§@µo²{¥¦¥u¯à½Æ»s¨ìA1~C1Äæ¡A·Q½Ð°Ý­n¦p¦ó­×§ï¡A¤~¯à¦Û°Ê±N¦P­Ó¬¡­¶Ã¯¸Ì¨C­Ó¤u§@ªíªº©Ò¦³¤º®e²Î¤@½Æ»s¨ì¦P¤@­Ó¤u§@ªí?

Sub Combine()
    Dim J As Integer
   
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    Sheets(2).Activate
    Range("A1").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")
   
    For J = 2 To Sheets.Count
        Sheets(J).Activate
        Range("A1").Select
        Selection.CurrentRegion.Select
        Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
        Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
    Next
End Sub
Benson Liu

¦^´_ 1# k8234g
¸Õ¸Õ¬Ý~
¦X¨Ö¦h­ÓÀÉ®×.rar (449.2 KB)

TOP

¦^´_ 2# starry1314


    ¦nªº~~ ÁÂÁ±z!:)
Benson Liu

TOP

¦^´_ 2# starry1314


    ±z¦n¡A§Ú¤£¤Ó·|¥ÎÕÙ>¡@¡ÕÈС@¡@§Ú§âÀɮ׶}±Ò¨S¦³¬Ý¨ì¥¨¶°
Benson Liu

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD