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

[µo°Ý] ¦p¦ó¨Ì¿é¤J¤§µ§¼Æ¤Î¼Æ¶q ,¥H¥¨¶° ´_»s¸ê®Æ

¦^´_ 1# melvinhsu1105
  1. Private Sub CommandButton1_Click()
  2. Dim Ar()
  3. d = InputBox("¿é¤J¦C¦ì", , 2)
  4. k = InputBox("¿é¤J¹ïÀ³¼Æ¶q", , 2)
  5. Do Until d = "" Or k = ""
  6.    ReDim Preserve Ar(s)
  7.    Ar(s) = Array(d, k)
  8.    s = s + 1
  9. d = InputBox("¿é¤J¦C¦ì", , 2)
  10. k = InputBox("¿é¤J¹ïÀ³¼Æ¶q", 2)
  11. Loop
  12. For i = 0 To UBound(Ar)
  13.    For j = 1 To Ar(i)(1)
  14.    r = IIf(Application.CountA(Sheet2.Columns("A")) = 0, 1, Sheet2.[A65536].End(xlUp).Row + 1)
  15.       Rows(Ar(i)(0)).Copy Sheet2.Cells(r, 1)
  16.    Next
  17. Next
  18. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# melvinhsu1105


    test.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD