Excel VBA 如何拼接

Question

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

"Rank", "-", 那么这个公式求出的数据就是

这是原始代码，它找到数据并将其放入未连接的数据table。

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

您可以只使用 & 进行连接。由于您有两个连续的硬编码字符串，因此可以将它们合并为一个。

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

Excel VBA 如何拼接

Excel VBA how to concatenate

vba

excel

concatenation