Hsieh

回復 1# hugh0620


    你的迴圈邏輯有點怪異，這樣的刪除列應該是不完整的
上傳您的檔案，解釋你所謂有疑問的資料條件

Hsieh

回復 11# hugh0620
以你原程式碼的刪除動作應該要由後往前刪除

1. Private Sub CommandButton1_Click()  '匯出與刪除
   
2. Dim A As Range
   
3. With Sheet1
   
4. r = .[L65536].End(xlUp).Row
   
5. Do Until r < 7
   
6.    If .Cells(r, 6) <> "" Then
   
7.       .Rows(r).Copy Sheet2.Cells(k + 7, 1) '匯出
   
8.         .Rows(r).Delete xlShiftUp '刪除
   
9.        k = k + 1
   
10.    End If
    
11.    r = r - 1
    
12. Loop
    
13. End With
    
14. End Sub

複製代碼

Hsieh

回復 17# hugh0620

1. Private Sub CommandButton1_Click()  '刪除
   
2. Dim A As Range, Rng As Range
   
3. If Application.CountA([F6:F65536]) > 0 Then
   
4. For Each A In Range("F6:F65536").SpecialCells(xlCellTypeConstants)
   
5.    If A.Offset(, 9) = 0 Or A.Offset(, 83) = 0 Then
   
6.       If Rng Is Nothing Then
   
7.         Set Rng = A
   
8.         Else
   
9.         Set Rng = Union(Rng, A)
   
10.       End If
    
11.     End If
    
12. Next
    
13. End If
    
14. Rng.EntireRow.Delete
    
15. End Sub

複製代碼