Ошибка ошибки несоответствия MBA Excel VBA

Question

Я получаю ошибку несоответствия типа, когда использую приведенный ниже код. Если возможно, пожалуйста, помогите решить приведенную ниже ошибку кода. Оба AP # и AR3 имеют значения charactor.

Что мой основной Requirment является функцией использования так же, как сцепить функцию, чтобы добавить два значения Charactor из двух ячейки в одной ячейке Excel с помощью VBA Code

Range("AI3:AI" & lrv + 2).Value = Range("AP3:AP" & lrv + 2).Value & " " & Range("AR3:AR" & lrv + 2).Value 

Answer 1

Вы получаете ошибку рассогласования, потому что это неправильный путь присвоение значений. Например, это неверно

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