返回列表 上一主題 發帖

[發問] 找不出問題? 請指點一下

[發問] 找不出問題? 請指點一下

  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
複製代碼
test123.rar (10.06 KB)
我設了一個方法 如果 ( value = 0 ) 就 delete,    但為什麼最後的一個 0  delete 不到 ????

for lastrow to 2 step -1
ss

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事,就等於壽命有多長。因此必須與時間競爭,切莫使時日空過。
返回列表 上一主題