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

[µo°Ý] Á`ªí¶×¶°¸Õ°Ý

¦^´_ 1# macro0029
  1. Sub ex()
  2. Dim ar(), ay()
  3. With Sheets("Á`ªí")
  4. r = 2
  5. Do Until .Cells(r, 1) = ""
  6. If .Cells(r, "J") = "¦¬¤ä½Õ¾ã" Then
  7.    If .Cells(r, "A") = "7070" Then
  8.       ReDim Preserve ar(s)
  9.       ar(s) = Array(.Cells(r, "A"), .Cells(r, "D"), .Cells(r, "E"), .Cells(r, "F"), .Cells(r, "G") & .Cells(r, "H"), .Cells(r, "I"), .Cells(r, "J"))
  10.       s = s + 1
  11.       Else
  12.       ReDim Preserve ay(i)
  13.       ay(i) = Array(.Cells(r, "A"), .Cells(r, "D"), .Cells(r, "E"), .Cells(r, "F"), .Cells(r, "G") & .Cells(r, "H"), .Cells(r, "I"), .Cells(r, "J"))
  14.       i = i + 1
  15.     End If
  16. End If
  17. r = r + 1
  18. Loop
  19. End With
  20. Sheets("»s²¼¾÷ºc¬O7070¥BÃþ§O¬°¦¬¤ä½Õ¾ã").[A2].Resize(s, 7) = Application.Transpose(Application.Transpose(ar))
  21. Sheets("»s²¼¾÷ºc«D7070¥BÃþ§O¬°¦¬¤ä½Õ¾ã").[A2].Resize(i, 7) = Application.Transpose(Application.Transpose(ay))
  22. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD