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

jakcy1234

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)

¤U¸ü¦¸¼Æ: 5

2013-9-17 20:58

§Ú³]¤F¤@­Ó¤èªk ¦pªG ( value = 0 ) ´N delete,    ¦ý¬°¤°»ò³Ì«áªº¤@­Ó 0  delete ¤£¨ì ????

sunnyso

for lastrow to 2 step -1