合并单元格只能用EntireRow.Delete，不能用EntireRow.Sekect

ning84

1. Sub ll()
   
2.    Dim Rng As Range
   
3.        Set Rng = Selection
   
4.        Rng.EntireRow.Interior.ColorIndex = 4
   
5.        Stop
   
6.        Rng.EntireRow.Delete
   
7. End Sub
   

复制代码

Rng.EntireRow.Select就乱套了。

1. Sub SelectMergeFileDeleteRng()
   
2.     Dim Str, ii, jj, kk
   
3.     Dim Rng As Range, oRng As Range, Rng1 As Range, Rng2 As Range
   
4.     Dim Fso As FileSystemObject, oFile As File
   
5.         Set Fso = New FileSystemObject
   
6.     Dim Sht  As Worksheet
   
7.         Set Rng = Selection
   
8.         Debug.Print Rng.Address
   
9.         Set Sht = Rng.Parent
   
10.         Set oRng = Sht.Cells(Rng.Row, "F").Resize(Rng.Rows.Count, 1)
    
11.         Debug.Print oRng.Address
    
12.         Rng = "=count(" & oRng.Address & ")"
    
13.         Stop
    
14.     Dim oFolder As Folder, PathName
    
15.         With Sht
    
16.              For ii = Rng.Rows.Count To 1 Step -1
    
17.                    Debug.Print .Cells(Rng(ii, 1).Row, "D").Address
    
18.                    Str = .Cells(Rng(ii, 1).Row, "H")
    
19.                    Set oRng = .Cells(Rng(ii, 1).Row, "D")
    
20.                   
    
21.                    If Fso.FileExists(Str) Then
    
22.                           Set oFile = Fso.GetFile(Str)
    
23.                           
    
24.                           If .Cells(Rng(ii, 1).Row, "D") = oFile.Name Then
    
25.                                oRng.Interior.ColorIndex = 3
    
26.                           End If
    
27.                    ElseIf Not Fso.FileExists(Str) Then
    
28.                           oRng.EntireRow.Interior.ColorIndex = 4
    
29.                           oRng.EntireRow.Delete
    
30.                    End If
    
31.              Next ii
    
32.         End With
    
33.         ''
    
34. End Sub

复制代码

ynzsvt

用select后就好多行了啊，肯定出错了。