1

列 A、C、E、および G にデータがあります。列 I に、これらのすべてのデータをセミコロンで区切って保持する必要があります。Web を検索しましたが、改行をセミコロンに置き換える方法しか見つかりませんでした。しません。以下は、私がそれに取り組んだ3つのコードです

Range("I" & i).Value = "=A" & i & Chr(59) & "&" & "C" & i & "&" & "E" & i & "&" & "G" & i
Range("I" & i).Value = "=A" & i & "&C" & i & "&E" & i & "&G" & i
Range("I" & i).Value = Range("A" & i).Value + ; + Range("C" & i).Value + ; + Range("E" & i).Value + ; + Range("G" & i).Value

2行目は私が望むものに最も近いものですが、 & ";" を追加すると その中にエラーが発生します。

どんなアイデアでも大歓迎です

解決済み：これは以下の回答によって解決されました。詳細を説明する独自の修正を管理していましたが、受け入れられた回答はよりクリーンで効率的な方法です

mystring = "=A" & i & "&" & Chr(34) & ";" & Chr(34) & "& C" ​​& i & "&" & Chr(34) & ";" & Chr(34) & "& E" & i & "&" & Chr(34) & ";" & Chr(34) & "& G" & i Range("I" & i).Value = mystring

4

2 に答える 2

4

を使用する必要があります"&"";"""。

詳細には、次のようなものを使用する必要があります

"=A" & i & "&"";""" & "&C" & i

その結果、

=A1&";"&C1

仮定しますi = 1。

于 2012-11-23T08:49:32.320 に答える
0 
=CONCATENATE(A1, ";", C1, ";", E1, ";", G1)

VBA の使用

Range("A2").FORMULA = REPLACE("=CONCATENATE(A1, ';', C1, ';', E1, ';', G1)", "'", CHR(34))
于 2012-11-23T09:25:14.780 に答える