運行時錯誤13類型不匹配vba

我收到此錯誤消息，但似乎無法解決它。請幫忙。感謝運行時錯誤13類型不匹配vba

For i = 2 To lRow 
     If Cells(i, 6).Value = "Rep" Then 
      Cells(i, 7).Value = Cells(i, 3).Value & Cells((Left(4, Cells(i, 1).Value)) & Cells(i, 2).Value).Value & "Here"

來源

2017-03-04 lamine

的對於i = 2〜lRow 如果細胞（I，6）。價值= 「REP」然後（i，7）.Value = Cells（i，3）.Value＆Cells（（Left（4，Cells（i，1）.Value））＆Cells（i，2）.Value）.Value＆這裏「 – lamine

你試圖連接一個數組和字符串」Here「，代碼*假設*要做什麼？ – Comintern

它是連接來自不同單元格的值，在末尾添加」Here「在細胞（我，6） – lamine

基於您的評論「......設法採取在細胞中的值（I，3），（1,1）和（1,2）...」下面會做什麼你要。拋棄別人的地方在於你使用的是'Left（...'），你是否想要使用部分的某個單元格？如果是，請說明你需要什麼（即「單元格i，3的全部;左n小區1，1的字符，所有小區i，2，加追加 '這裏' 到該字符串）

Cells(i, 7).value = Cells(i, 3).value & Left(Cells(i, 1).value, 4) & Cells(i, 2).value & "Here"

來源

2017-03-04 17:26:48

對於混淆感到抱歉。正確。我正在嘗試使用單元格（i，1）中的左4個字符 – lamine

然後查看已更新的答案。您需要'...＆Left（Cells（i，1）.value，4）＆...' –

我做了更改，但現在它在同一行發出「無效的過程調用或參數錯誤」 – lamine

運行時錯誤13類型不匹配vba

回答

相關問題