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

¥[Åv«ü¼Æ¾ú¥v¸ê®Æ¤§±Æ§Ç°ÝÃD

¦^´_ 1# cudui
  1. Sub yy()
  2. c = Array(1, 2, 3, 4, 5, 11, 14)
  3. With Sheets("¥[Åv¾ú¥v¦æ±¡­ì©lÀÉ")
  4.   .[A9:E9].Copy Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á").[A1]
  5.   .[K9].Copy Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á").[F1]
  6.   .[N9].Copy Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á").[G1]
  7.   n = .[a65536].End(xlUp).Row
  8.   a = .Range(.Cells(1, 1), .Cells(n, 14))
  9.   ReDim arr(1 To UBound(a), 1 To 7)
  10.   x = 1
  11.   For j = 1 To UBound(a)
  12.     For i = 1 To 7
  13.       If Mid(.Cells(j, 1), 4, 1) <> "/" Then
  14.         GoTo 123
  15.       Else: arr(x, i) = a(j, c(i - 1))
  16.       End If
  17.     Next i
  18.     x = x + 1
  19. 123
  20.   Next j
  21. End With
  22. With Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")
  23.   .Range([A2], [G2].End(xlDown)) = ""
  24.   .[A2].Resize(j - 1, 7) = arr
  25.   .[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
  26.   .Range([B2], [G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
  27. End With
  28. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# cudui

¬O§Úº|¥´¤F4­Ó.
  1. With Sheets("¥[Åv¾ú¥v¦æ±¡-±Æ§Ç«á")
  2.   .Range(.[A2], .[G2].End(xlDown)) = ""
  3.   .[A2].Resize(j - 1, 7) = arr
  4.   .[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
  5.   .Range(.[B2], .[G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
  6. End With
½Æ»s¥N½X
¦b¥ô¦ó¤u§@ªí¤U°õ¦æ³£¥i¥H

TOP

¦^´_ 11# cudui

With Sheets("¥[Åv")
  .[A2] = ""                  ==> ¥[Åv¤u§@ªí        ¤§ A2Àx¦s®æ =""
  [A2]=""                     ==> ¥Ø«e§@¥Î¤§¤u§@ªí  ¤§ A2Àx¦s®æ =""
                                          (¥¼­z©ú¦ó¤u§@ªí «h¬O  ¥Ø«e§@¥Î¤§¤u§@ªí)
END WITH

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD