我有一些我无法解决的怪异例外。

Question

来自模块的声明：

Public Sub DecalreFirstRow()


        rng1thcol1thLinePQ = shPriceQuote.Range("A75:D75")
        rng2thcol1thLinePQ = shPriceQuote.Range("E75:F75")
        rng3thcol1thLinePQ = shPriceQuote.Range("G75:H75")
        rng4thcol1thLinePQ = shPriceQuote.Range("I75:J75")
        rng5thcol1thLinePQ = shPriceQuote.Range("K75:L75")
        rng6thcol1thLinePQ = shPriceQuote.Range("M75:N75")
        rng7thcol1thLinePQ = shPriceQuote.Range("O75:T75")
        rng8thcol1thLinePQ = shPriceQuote.Range("U75:X75")

        rng1thcol1thLineCF = shCusFile.Range("A12:G12")
        rng2thcol1thLineCF = shCusFile.Range("H12:K12")
        rng3thcol1thLineCF = shCusFile.Range("L12:O12")
        rng4thcol1thLineCF = shCusFile.Range("P12:S12")
        rng5thcol1thLineCF = shCusFile.Range("T12:W12")
        rng6thcol1thLineCF = shCusFile.Range("X12:AA12")
        rng7thcol1thLineCF = shCusFile.Range("AD12:AI12")
        rng8thcol1thLineCF = shCusFile.Range("AJ12:AN12")

    End Sub

the发生例外的公共子：

 Public Sub FillPriceQuoteTable()

        With rng1thcol1thLinePQ
            .Select()
            .Value = rng1thcol1thLineCF.Value
            **.Merge()** 
        End With

        With rng2thcol1thLinePQ
            .Select()
            **.Merge()**
            .Value = rng2thcol1thLineCF.Value
        End With

        With rng3thcol1thLinePQ
            .Select()
            **.Merge()**
            .Value = rng3thcol1thLineCF.Value
        End With

        With rng4thcol1thLinePQ
            .Select()
            **.Merge()**
            .Value = rng4thcol1thLineCF.Value
        End With

Replace：

rng.Merge()

：

rng.mergecells=true.