Excel VBA如何连接

我需要在vba中连接一个已经存在的代码，以便输出它

“Rank”，“ – ”，然后是这个公式find的数据

这里是原始代码，它find数据，并把它的数据表un-concatenated。

For innerLoop = 0 To addRowOffset - 1 Range("F" & maxRows + 1 - innerLoop).Value = _ Sheets("Template").Range("B" & (6 + periodP * 2 + periodQ * 3 + innerLoop)).Value Next innerLoop 

这是我试图连接它失败的尝试。

 For innerLoop = 0 To addRowOffset - 1 Range("F" & maxRows + 1 - innerLoop).Value = _ Concatenate("Rank", "-", Sheets("Template").Range("B" & (6 + periodP * 2 + periodQ * 3 + innerLoop)).Value) Next innerLoop 

任何帮助将非常感激。

Answer 1

你可以使用&来连接。 而且由于你在一行中有两个硬编码的string，他们可以合并成一个。

 For innerLoop = 0 To addRowOffset - 1 Range("F" & maxRows + 1 - innerLoop).Value = _ "Rank-" & Sheets("Template").Range("B" & (6 + periodP * 2 + periodQ * 3 + innerLoop)).Value Next innerLoop