レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

ゲストさんの投稿

(投稿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関数は思いつきませんでした。

2015/02/09 02:42

ゲストさんのコメント

(コメントID: 2258)

今

...

の使い方を検証中です^^;

今回は悩みました^^; でも自分でできたので嬉しいですヽ(*´ｖ｀*)ﾉ
最後にコンマがくるのはどうしたものかな... と考えてそれを解決したのが以下のコードです。

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

mid関数は思いつきませんでした。

2015/02/09 02:44

ゲストさんのコメント

(コメントID: 2259)

[コード]...[/コード] の使い方会得しましたヾ(*≧∀≦*)ﾉ
スペースを取ってしまって申し訳ありません。

2015/02/09 02:47

ゲストさんのコメント

(コメントID: 2263)

ゲストさん:

自力での回答到達、すばらしいです。

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

>今回は悩みました^^; でも自分でできたので嬉しいですヽ(*´ｖ｀*)ﾉ
>最後にコンマがくるのはどうしたものかな... と考えてそれを解決したのが以下のコードです。
>
>

>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
>

>
>mid関数は思いつきませんでした。

2015/02/09 09:04