Programmation efficace en facilitant la concaténation de chaînes avec VBA

Contexte

--Il y a "&" et "CONCATENATE ()" dans la méthode de concaténation de chaînes dans Excel. --Cependant, les deux méthodes vous obligent à spécifier chaque cellule individuellement. - =A1&A2&A3 - =CONCATENATE(A1,A2,A3) ――Je ne peux pas sélectionner une plage même si j'ai une fonction (à quoi sert vraiment la fonction?) --Il existe un site qui décrit le VBA qui rend cette plage sélectionnable. En plus de la simple concaténation de chaînes, dans mon cas, j'ai pensé qu'il serait plus pratique de pouvoir concaténer des chaînes dans les cas suivants, j'ai donc créé une fonction en référence au site ci-dessus.

• J'utilise des fonctions depuis plus de 5 ans maintenant, mais c'est très pratique et je les utilise assez souvent.

Code de fonction

• https://github.com/9en/useful-tool/blob/master/VBA_function/ConcatenateRangeText.bas

Comment créer une fonction (comment s'inscrire dans Excel)

• Il existe de nombreux articles sur le net, veuillez donc les vérifier vous-même.

Exemple d'utilisation

Séparateur "Kamma"

Excel

une fonction

=ConcatenateRangeText_comma(B1:B3)

résultat

dt,product,price

Séparateur "espace"

Excel

une fonction

=ConcatenateRangeText_space(B1:E1)
=ConcatenateRangeText_space(B2:E2)

résultat

,SUM(CASE WHEN product = 'car' THEN 1 ELSE 0 END) AS product_car
,SUM(CASE WHEN product = 'bike' THEN 1 ELSE 0 END) AS product_bike

Séparateur "tuyau"

Excel

une fonction

=ConcatenateRangeText_separator(A1:D1,"|")
=ConcatenateRangeText_separator(A2:D2,"|")
=ConcatenateRangeText_separator(A3:D3,"|")

résultat

|2|SQL|
|3|Markdown|
|4|R,Python|

Séparateur "Kamma" Quartet "Single Quotatation"

Excel

une fonction

=ConcatenateRangeText_singlequote_comma(B1:B3)

résultat

'dt','product','price'

Autre

«Nous avons un code similaire à celui-ci.

référence

• http://www.relief.jp/itnote/archives/001342.php