Question

excel vba出现问题 range作用于worksheet对象时错误？谁能帮我解答一下？

Sub mmm()
For i = 1 To 20
Sheet1.Range("a&i:n&i").MergeCells = True
Next i
End Sub

Answer 1

问题在于对Range对象使用Activate方法时发生错误。
请注意：range的Activate方法激活单个单元格，该单元格必须处于当前选定区域内。要选择单元格区域，请使用 Select 方法。
很显然你的range并未处于选定区域就使用了activate方法。
其实你这个代码有很多“废话”，复制和选择性粘贴时，选中或激活单元格区域都是没必要的。事实上select这个方法在录制宏时才会在自动代码里出现，一般编写代码时基本不用。 我修改如下，请仔细体会。

Set pxl_copy = wb_report.Worksheets("公式") ''''复制pxl数据
Set pxl_range = pxl_copy.Range("B3:B40")
pxl_copy.Activate '可省略,如果省略对该工作表单元格的引用必须指明工作表。
For Each pxl_cell In pxl_range
If pxl_cell.Text = LotData Then
pxl = pxl_cell.Row
End If
Next
pxl_copy.Range("C" & pxl & ":AR" & pxl).copy
yield_copy.Range("AX" & day_row).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats,Operation:=xlNone
Application.CutCopyMode = False

Answer 2

Sub mmm()

    For i = 1 To 20

        Sheet1.Range("a" & i & ":n" & i).MergeCells = True

    Next i

End Sub

Answer 3

Sheet1.Range("a"&i&":n"&i).MergeCells = True

追问

还是错误啊？

追答

mergeCells(a,b,c,d) 单元格合并函数
a 单元格的列号
b 单元格的行号
c 从单元格[a,b]起，向下合并的列数
d 从单元格[a,b]起，向下合并的行数

你的程序要做什么？

追问

问题就出在range里面怎么写的问题，range里面怎么使用连字号把i和行号连接起来！

追答

你的想法真简单。看我的：

Sub Macro1()
Application.DisplayAlerts = False
    Dim i As Integer
    Dim j As Integer
    Dim first As Integer
    Dim last As Integer
For i = 1 To 20
    first = 1
    For j = 1 To 9
        If Worksheets("Sheet1").Cells(i, j) <> Worksheets("Sheet1").Cells(i, j + 1) Then
            last = j
            Worksheets("Sheet1").Range(Cells(i, first), Cells(i, last)).Select
                With Selection
                    .MergeCells = True
                End With
            first = j + 1
        End If
    Next
Next
Application.DisplayAlerts = True
End Sub