[已解决]代码运行错误，大家帮忙看看问题出在哪里呢？

shenlong2006

代码如下：
Dim wb As Workbook, arr, rng As Range, i As Long, j As Long, m As Long, n As Long
Set wb = Workbooks.Open(ThisWorkbook.Path & "\汇总2.xls")
arr = wb.Sheets(1).Range("f7:f775")
wb.Close
For i = 1 To UBound(arr)
Set rng = Columns(6).Find(arr(i, 1)).MergeArea   ‘运行这行代码时出现错误
n = rng.Cells(1).Row
m = rng.Rows.Count
Next i

错误提示如下图：

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-12 12:00

可以Range.MergeCells 属性来判断某个单元格是否是包含合并单元格。

跳转到最佳答案楼层

hwc2ycy

你确认找到的单元格是合并单元格么？

hwc2ycy

1.     Dim wb As Workbook, arr, rng As Range, i As Long, j As Long, m As Long, n As Long
   
2.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\汇总2.xls")
   
3.     arr = wb.Sheets(1).Range("f7:f775")
   
4.     wb.Close
   
5.     On Error Resume Next
   
6.     For i = 1 To UBound(arr)
   
7.         Set rng = Columns(6).Find(arr(i, 1)).MergeArea   '运行这行代码时出现错误
   
8.         If Not rng Is Nothing Then
   
9.             n = rng.Cells(1).Row
   
10.             m = rng.Rows.Count
    
11.             Set rng = Nothing
    
12.         End If
    
13.     Next i

复制代码

hwc2ycy

可以Range.MergeCells 属性来判断某个单元格是否是包含合并单元格。