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

¨ç¼ÆÅçÃҨþã¦X¸ê®Æ

¥»©«³Ì«á¥Ñ Jared ©ó 2013-8-1 17:08 ½s¿è

¦^´_ 8# GBKEE

·Q½Ð°Ý¤@¤U¤j¤j¦³Ãö±z¨ó§Uµ{¦¡½Xªº°ÝÃD
¥H¤Uªºµ{¦¡¬O¥Î¤°»ò­ì²z¥h¼gªº©O?
¦³ÂI¤£¤Ó²M·¡
¦pªG½d³ò¤£¬OA1:C10
¦Ó¬OA1:D10 ©Î¬O¨ä¥L½d³ò
­n­×§ï­þ­Ó¦a¤è©O?
§Æ±æ¤j¤j¯àÀ°§Ú¸Ñµª¡A·P¿E¤£ºÉ><

    ReDim A(1 To UBound(Ar(1), 1), 1 To UBound(Ar(1), 2))
    For X = 1 To UBound(Ar(1), 2)
        For i = 1 To UBound(Ar(1), 2)
            For ii = 1 To UBound(Ar(1), 1)
                If ii = 1 Then
                    A(ii, i) = Ar(X)(ii, i)
                Else
                    A(ii, i) = IIf(A(ii, i) <> "" And Ar(X)(ii, i) <> "", "¸ê®Æ¦³»~", A(ii, i) & Ar(X)(ii, i))
                End If
            Next
        Next
    Next
    Workbooks("Á`ªí·J¾ã.xls").Sheets(1).Range(Rng) = A
End Sub
Jared

TOP

¦^´_ 4# GBKEE

½Ð°Ý¤j¤j¡A²{¦b¦³¤@­Óªí³æ
»Ý­n²Î­p¤T­Ó¤H¦w±Æ®È¹Cªº®É¶¡©M¦aÂI
¦³®M¥Î§Aªº¢ä¢Ð¢Ïµ{¦¡
¦ý¬O¦³¦a¤è¤£¾å±o¸Ó«ç»ò­×§ï

µ{¦¡°õ¦æªº¬yµ{¦p¤U¡G
®È¹C¦aÂI¥ýÅçÃÒ¬O§_¦³»~¡A©È¦³¤H­×§ï¨ì¡@
¤À§O¦³¥|­Ó®É¶¡ÂI­n²Î­p
³Ì«á¦b·N¨£·J¾ãªº³¡¤ÀÅã¥Ü²Î­p¦X®É¦ó¦a³Ì°ª²¼

³Â·Ð¤j¤j¤F¡A¥Ø«e¬°¤F«ç»ò­×§ï¶Ë³z¸£µ¬¡Ö\\¡Õ
¤u§@Á`ªí.zip (31.61 KB)
Jared

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-8-2 16:55 ½s¿è

¦^´_ 12# Jared
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As String, Ar(1 To 3), A(), i As Integer, ii As Integer, X As Integer
  4.     '­n¦X¨Ö ¤T­ÓÀÉ®×.  -> Ar(1 To 3)
  5.     Application.ScreenUpdating = False
  6.     Application.DisplayAlerts = False
  7.     A = Array("D:\¤u§@Á`ªí\¤p©ú.xls", "D:\¤u§@Á`ªí\¤pµØ.xls", "D:\¤u§@Á`ªí\¤p¬ü.xls")   '¸ô®|¤ÎÀɦW½Ð¨Ì»Ý¨D­×§ï
  8.     Rng = "A1:E10"                    '©w©Ò¦³Àɮצb¬Û¦Pªº½d³ò
  9.     For i = 0 To UBound(A)
  10.         With Workbooks.Open(A(i)).Sheets(1)                    'With ³¯­z¦¡ ¦b¤@­Ó³æ¤@ª«¥ó©Î¤@­Ó¨Ï¥ÎªÌ¦Û­q«¬ºA¤W°õ¦æ¤@¨t¦Cªº³¯­z¦¡¡C
  11.             Ar(i + 1) = .Range(Rng).Value                         '¤Gºû°}¦C:²Ä¤@ºû = ¤u§@ªíªº¦C,²Ä¤Gºû = ¤u§@ªíªºøó,
  12.             .Parent.Close
  13.         End With
  14.     Next
  15.     ReDim A(1 To UBound(Ar(1), 1), 1 To UBound(Ar(1), 2))   '°}¦C ­«·s°t¸m ºû¼Æ¤Îºû¼Æ¤¸¯À¤§¤W¤U­­¯Á¤Þ­È-> "A1:E10" ªº¤j¤p
  16.     For X = 1 To UBound(Ar)
  17.         For i = 1 To UBound(Ar(1), 2)                       'Äæ
  18.             For ii = 1 To UBound(Ar(1), 1)                  '¦C
  19.                 If ii = 1 Or i = 1 Then
  20.                     A(ii, i) = Ar(X)(ii, i)                 '²Ä1¦C ©Î ²Ä1øó
  21.                 Else
  22.                     If Ar(X)(ii, i) <> "" Then A(ii, i) = A(ii, i) + 1  '¦³¸ê®Æ + 1
  23.                 End If
  24.             Next
  25.         Next
  26.     Next
  27.     Workbooks("®È¹C¦aÂI²Î­p.xls").Sheets(1).Range(Rng) = A
  28.     Application.ScreenUpdating = True 'µ²§ô«á§ó·s¿Ã¹õ
  29.     Application.DisplayAlerts = True
  30. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 13# GBKEE


·PÁ¤j¤jªº¨ó§U
°}¦C¯Á¤Þªº¨Ï¥Î¤è¦¡Áٻݭn¬ã¨s¬ã¨s
¥ý¸ÕµÛ­×§ï¬Ý¬Ý

¦A¦¸ÁÂÁ¤j¤j^^
Jared

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD