よねさんのWordとExcelの小部屋　なんでも掲示板 [One Tree All Message]

よねさんのWordとExcelの小部屋　なんでも掲示板

ツリー一括表示
NO TITLE /たけこ Mail (20/10/25(Sun) 11:05) #13478
`└` Re[1]: 値を転記する /よねさん (20/10/26(Mon) 08:10) #13479
`└` Re[2]: 値を転記する /たけこ Mail (20/10/26(Mon) 10:33) #13480

親記事　/ ▼[ 13479 ]

■13478 / 親階層)

　NO TITLE

□投稿者/ たけこ Mail -(2020/10/25(Sun) 11:05:46)

よねさん様
貴サイトにはいつも助けられています。
ありがとうございます。

自身、もっと勉強しなくてはと思うのですが、
今回は時間が足りなく、初めて相談させていただきます。

123行100列に数値が入っています。
値の数は0～123までまちまちです。

これらの値を１列に取り出したいのです。

A列の値を他シートのA列に貼り付け
B列の値を先ほど貼り付けたA列の値の後ろに貼り付け・・・
と繰り返していきます。

関数で乗り切ろうとしたのですが、方法が浮かばず、
VBAの知識は、既に書かれたコードを利用するのが関の山なのです。
(先日もこちらのコードを参考にさせていただきました）

説明下手ですみませんが、お力貸していただきたく
よろしくお願いいたします。

[ □ Tree ] 返信/引用返信 削除キー/

▲[ 13478 ] / ▼[ 13480 ]

■13479 / 1階層)

　Re[1]: 値を転記する

□投稿者/ よねさん -(2020/10/26(Mon) 08:10:24)

VBAのコードです。
Sheet1の値をSheet2のA列に1個づつ転記します。
たいして時間がかからないので、配列を使うまでもないと思いました。

Sub test()
Dim i As Long, j As Long
Dim cn As Long
For j = 1 To 100
    For i = 1 To 123
     cn = cn + 1
     Worksheets("Sheet2").Cells(cn, 1).Value = Worksheets("Sheet1").Cells(i, j).Value
    Next i
Next j

End Sub

[ 親 13478 / □ Tree ] 返信/引用返信 削除キー/

▲[ 13479 ] / 返信無し

■13480 / 2階層)

　Re[2]: 値を転記する

□投稿者/ たけこ Mail -(2020/10/26(Mon) 10:33:45)

よねさん様

ありがとうございます。

こんなにシンプルにできるんですね。
助かりました。

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

[ 親 13478 / □ Tree ] 返信/引用返信 削除キー/

HOME HELP 新規作成新着記事ツリー表示トピック表示検索過去ログ

- Child Tree -