標題: [發問] 找不出問題? 請指點一下 [打印本頁]

---

作者: jakcy1234    時間: 2013-9-17 21:11     標題: 找不出問題? 請指點一下

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 ) 就 delete
    
23.         Cells(LR, 1).EntireRow.Delete              '''''''''''''   ( value = 0 ) 就 delete
    
24.    End If
    
25.    End With
    
26.      Next
    
27. End Sub

複製代碼

[attach]16093[/attach]
我設了一個方法 如果 ( value = 0 ) 就 delete,    但為什麼最後的一個 0  delete 不到 ????

---

作者: sunnyso    時間: 2013-9-18 22:12

for lastrow to 2 step -1

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)