５倍速！メールマガジン
このメールマガジンの詳細はこちら
受講生の声
新着の講座投稿
新着の講座コメント
新着のノート投稿
投稿一覧へ新着のノートコメント
表示できる投稿はありません。
サイト運営者紹介
小川 慶一講師/教材/システム開発者紹介
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
レッスン-投稿一覧
ゲストさんの投稿
(投稿ID: 1104)
最後にコンマがくるのはどうしたものかな... と考えてそれを解決したのが以下のコードです。
code
Sub complist1()
Dim i, all, all2
all = Range("A" & 2).Value
all2 = Range("B" & 2).Value
For i = 3 To 11
all = all & "," & Range("A" & i).Value
all2 = all2 & "," & Range("B" & i).Value
Next
Range("F2").Value = all
Range("F3").Value = all2
End Sub
/code
mid関数は思いつきませんでした。
ゲストさんのコメント
(コメントID: 2258)
の使い方を検証中です^^;
今回は悩みました^^; でも自分でできたので嬉しいですヽ(*´ｖ｀*)ﾉ
最後にコンマがくるのはどうしたものかな... と考えてそれを解決したのが以下のコードです。
mid関数は思いつきませんでした。
ゲストさんのコメント
(コメントID: 2259)
スペースを取ってしまって申し訳ありません。
ゲストさんのコメント
(コメントID: 2263)
自力での回答到達、すばらしいです。
>今回は悩みました^^; でも自分でできたので嬉しいですヽ(*´ｖ｀*)ﾉ
>最後にコンマがくるのはどうしたものかな... と考えてそれを解決したのが以下のコードです。
>
>
>
>mid関数は思いつきませんでした。