求助 代码报错,请老师帮忙看看

我问问啊FG进化

Sub 测试1()
Dim straddress As String
straddress = "$F$14,$F$15,$F$38,$F$39,$F$40,$F$41,$F$42,$F$43,$F$44,$F$45,$F$48,$F$49,$F$50,$F$55,$F$56,$F$57,$F$58,$F$59,$F$60,$F$61,$F$62,$F$63,$F$64,$F$65,$F$66,$F$67,$F$68,$F$69,$F$70,$F$71,$F$72,$F$73,$F$74,$F$75,$F$76,$F$77,$F$78,$F$79,$F$80,$F$81,$F$82,$F$83,$F$84,$F$85,$F$86,$F$87,$F$88,$F$89,$F$90,$F$91,$F$118,$F$119,$F$120,$F$121,$F$122,$F$160,$F$196,$F$197,$F$225,$F$241,$F$242,$F$280,$F$281,$F$292,$F$293"


        Range(straddress).Offset(0, 1).Value = "测试"  '


End Sub

____________________________________________________________________________________
Sub 测试2()

Dim straddress As String
        straddress = "$F$14,$F$15,$F$38,$F$39,$F$40,$F$41,$F$42,$F$43,$F$44,$F$45,$F$48"
         Range(straddress).Offset(0, 1).Value = "测试"  '
End Su



l请问老师上面两段代码,运行后,代码1报错,代码2正常..唯一的区别就是代码1引用的绝对坐标较多....请问什么原因导致的报错,有什么解决办法吗?

陆离Lowry

RANGE里字符不能超过255

zxsea_7426

字符串太长，可以改用union来写