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