Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1693 / 13646 ツリー ←次へ | 前へ→

【72592】構文エラー 杏子 12/8/27(月) 15:19 質問[未読]
【72593】Re:構文エラー UO3 12/8/27(月) 16:49 発言[未読]
【72594】Re:構文エラー UO3 12/8/27(月) 16:59 発言[未読]
【72595】Re:構文エラー 杏子 12/8/27(月) 19:48 お礼[未読]

【72592】構文エラー
質問  杏子  - 12/8/27(月) 15:19 -

引用なし
パスワード
   急いでいます。
下記のコードのエラー「コンパイルエラー:構文エラー」の解除法を教えてください。

Range("A" & intDataCnt).Formula = "=CONCATENATE("Range("B" & intDataCnt).value","Range("C" & intDataCnt).value","Range("D" & intDataCnt).value","Range("F" & intDataCnt).value","Range("G" & intDataCnt).value","Range("H" & intDataCnt).value","Range("I" & intDataCnt).value","Range("J" & intDataCnt).value")"

【72593】Re:構文エラー
発言  UO3  - 12/8/27(月) 16:49 -

引用なし
パスワード
   ▼杏子 さん:

こんにちは

Range("A" & intDataCnt).Formula = _
  "=CONCATENATE(B" & intDataCnt & ",C" & intDataCnt & ",D" & intDataCnt & ",F" & intDataCnt & ",G" & intDataCnt & ",H" & intDataCnt & ",I" & intDataCnt & ",J" & intDataCnt & ")"

でも、式を入れなきゃいけないのですか?

【72594】Re:構文エラー
発言  UO3  - 12/8/27(月) 16:59 -

引用なし
パスワード
   ▼杏子 さん:

参考までに。
A列に値を入れていいなら以下のような短いものになりますよ。

Range("A" & intDataCnt).Value = Join(WorksheetFunction.Index(Range("B" & intDataCnt).Resize(, 9).Value, 1, 0), "")

【72595】Re:構文エラー
お礼  杏子  - 12/8/27(月) 19:48 -

引用なし
パスワード
   お返事遅くなり申し訳ありません。

無事処理が進み大変助かりました。

ありがとうございました。

1693 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free