Excel VBA 如何拼接
Excel VBA how to concatenate
我需要在 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
如有任何帮助,我们将不胜感激。
您可以只使用 &
进行连接。由于您有两个连续的硬编码字符串,因此可以将它们合并为一个。
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
我需要在 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
如有任何帮助,我们将不胜感激。
您可以只使用 &
进行连接。由于您有两个连续的硬编码字符串,因此可以将它们合并为一个。
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