我使用下面提到的代码时收到类型不匹配错误。如果可能,请帮助解决下面提到的代码错误。AP#和AR3都有字符值。
我的基本要求是使用函数,就像使用vba代码在一个excel单元格中的两个单元格中添加两个字符值的连接函数一样
Range("AI3:AI" & lrv + 2).Value = Range("AP3:AP" & lrv + 2).Value & " " & Range("AR3:AR" & lrv + 2).Value
您会遇到不匹配错误,因为这是分配值的错误方法。例如,这是不正确的
Range("D1:D3").Value = Range("A1:A3").Value & " " & Range("B1:B3").Value
您正在使用数组。所以试试这个
Range("D1:D3").FormulaArray = _
"=(" & Range("A1:A3").Address & ") & "" "" & (" & Range("B1:B3").Address & ")"
所以你的代码变成
Range("AI3:AI" & lrv + 2).FormulaArray = _
"=(" & _
Range("AP3:AP" & lrv + 2).Address & _
") & "" "" & (" & _
Range("AR3:AR" & lrv + 2).Address & ")"
或者以更简化的方式
Dim rng1 As Range, rng2 As Range, rng3 As Range
Set rng1 = Range("AI3:AI" & lrv + 2)
Set rng2 = Range("AP3:AP" & lrv + 2)
Set rng3 = Range("AR3:AR" & lrv + 2)
rng1.FormulaArray = "=(" & _
rng2.Address & _
") "" "" & (" & _
rng3.Address & _
")"
rng1.Value = rng1.Value
rng2.Resize(1,2).ClearContents
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句