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

[µo°Ý] §ä¤£¥X°ÝÃD? ½Ð«üÂI¤@¤U

[µo°Ý] §ä¤£¥X°ÝÃD? ½Ð«üÂI¤@¤U

  1. Sub Macro1()
  2.     Set sht1 = Sheets("Sheet1")
  3.     Set sht2 = Sheets("Sheet2")
  4.     Set sht3 = Sheets("Sheet3")
  5.     LastRow = sht1.Cells(sht1.Rows.Count, 1).End(xlUp).Row
  6.     For rw = 2 To LastRow
  7.         With Sheets("Sheet2")
  8.   Range("A1").Copy
  9.         End With
  10.         sht1.Cells(rw, 1).Copy
  11.         Sheets("Sheet2").Select
  12.         Range("A1").Select
  13.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  14.                 :=False, Transpose:=False
  15.     With Sheets("Sheet3")
  16.           Sheets("Sheet3").Select
  17.             selectend = Cells(1, Columns.Count).End(xlToLeft).Column
  18.             Range("A1", Cells(1, selectend)).Copy
  19.     LR = .Cells(.Rows.Count, 1).End(xlUp).Row
  20. Cells(LR, 1).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  21.    :=False, Transpose:=False
  22.    If Cells(LR, 1).Offset(0, 0).Value = 0 Then  '''''''''''''   ( value = 0 ) ´N delete
  23.         Cells(LR, 1).EntireRow.Delete              '''''''''''''   ( value = 0 ) ´N delete
  24.    End If
  25.    End With
  26.      Next
  27. End Sub
½Æ»s¥N½X
test123.rar (10.06 KB)
§Ú³]¤F¤@­Ó¤èªk ¦pªG ( value = 0 ) ´N delete,    ¦ý¬°¤°»ò³Ì«áªº¤@­Ó 0  delete ¤£¨ì ????

for lastrow to 2 step -1
ss

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD