Excel VBA comment concaténer

J'ai besoin de concaténer un code déjà existant dans vba pour que la sortie soit

"Rank", "-", puis datatables que cette formule trouve

Voici le code d'origine, il trouve datatables et le met un tableau de données non concaténé.

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 

Voici ma tentative échouée d'essayer de concaténer.

 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 

Toute aide serait très appréciée.

Vous pouvez simplement utiliser le & pour concaténer. Et puisque vous disposez de deux strings codées en série, elles peuvent être combinées en une seule.

 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