Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25193 / 76732

←次へ　｜　前へ→


	【56883】Re:別シートへ行と列を入れ替えてコピー

初心者さっち - 08/7/9(水) 16:48 -


	引用なし

	パスワード

▼ハチ様

>左上のセルのアドレスを割り出してみました。
>さっちさんの書き込みの内容をそのままコード化すると、こんな感じですか？
>結果は、イミディエイトで見てください。
>
>お昼を食べながら書いたので、バグがあるかも。
>
>Sub Test1()
>　　Dim r As Long
>　　Dim c As Integer
>　　Dim i As Long
>　　Dim Col(1 To 6) As String
>　　Dim Sou_adr() As String 'コピー元のアドレス配列
>　　Dim Des_adr() As String 'コピー先のアドレス配列
>　　
>　　'コピー元のアドレス生成
>　　ReDim Sou_adr(0): i = 0
　　'Sou_adrに1つ配列を割り当てる？　0だけを割り当てる？
　　
>　　For r = 11 To 1027 Step 4
>　　　　For c = 18 To 36 Step 9
　　　　 'なぜ9飛ばしの36までなのですか？

>　　　　　　ReDim Preserve Sou_adr(i)
　　　　　　　'配列の最後の要素数をiにする？

>　　　　　　Sou_adr(i) = Cells(r, c).Address(0, 0)
　　　　　　　'Address(0,0)ってどういうことですか？
>　　　　　　i = i + 1
>　　　　Next
>　　Next
>　　
>　　'コピー先のアドレス生成
>　　ReDim Des_adr(0): i = 0
>　　Col(1) = "c": Col(2) = "E": Col(3) = "H"
>　　Col(4) = "K": Col(5) = "M": Col(6) = "P"
>　　For r = 5 To 2100 Step 16 '実際は To ・・いくつ？
　　 'toは、上の1207のデータが転記されるまでなのですが。
　　　わからないです。
>　　　　For c = 1 To 6
>　　　　　　ReDim Preserve Des_adr(i)
>　　　　　　Des_adr(i) = Range(Col(c) & r).Address(0, 0)
>　　　　　　i = i + 1
>　　　　Next
>　　Next
>　　Erase Col
>　　
>　　'Debug.Print UBound(Sou_adr)
>　　'Debug.Print UBound(Des_adr)
>　　
>　　For i = 0 To 99 'とりあえず、100パターン書き出し
>　　　　Debug.Print Sou_adr(i) & " → " & Des_adr(i)
>　　Next
>　　
>　　Erase Sou_adr
>　　Erase Des_adr
>　　
>End Sub

すいません。難しいっす。
夕食を食べながらでもいいので、サルでも解るような解説をお願いします。

0 hits

▼

【56864】別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/9(水) 9:11