Excel VBA質問箱 IV

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

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


44534 / 76732 ←次へ | 前へ→

【37214】セルの転記
質問  マキチャン  - 06/4/25(火) 20:30 -

引用なし
パスワード
   http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=37121;id=excel
この続きです。続きに質問しようと試みたのですがどうしてもできなかったので
新しく投稿しました。すみません。

もうひとつ質問させてください。
コピー元のセルが離れていて、コピー先のセルが連続している場合、
教えていただいた方法でできるのですが、コピー先もセルが離れていると
教えていただいた方法でもできません。例えば、コピー元がA1,B1とC3のとき
コピー先がA10、B10とC12のとき次のようにすると
Dim A As Range
Dim B As Range
Dim C As Range
Dim I As Long

Set A = Range("A1:B1,C3")
Set B = Range("A10:B10,C12")

I = 1
For Each C In A
B(I).Value = C.Value
I = I + 1
Next C

C3はA11にコピーされてしまいます。

そこで、考えた結果次のようにしてみました。
Dim A As Range
Dim B As Range
Dim C As Range
Dim D As Range
Dim WK As Range
Dim I As Long
Dim J As Long

Set A = Range("A1:B1,C3")
Set WK = Range("A20:C20")
Set B = Range("A10:B10,C12")

I = 1
For Each C In A
 WK(I).Value = C.Value
 I = I + 1
Next C

J = 1
For Each D In B
 D.Value = WK(J).Value
 J = J + 1
Next D

すなわち、連続するワークエリアを使用して、ステップ1として
ワークエリアに転記する。ステップ2としてワークエリアから
目的のコピー先に転記する。これで、目的は果たせます。
何の問題も無いと思われますが、どうも、2ステップ踏むことと
ワークエリアを使用するのが少しダサいような気がします。
1ステップでできる方法がもしあるようなら教えてください。
私の頭ではこれ以外思いつきません。
0 hits

【37214】セルの転記 マキチャン 06/4/25(火) 20:30 質問
【37220】Re:セルの転記 ichinose 06/4/25(火) 21:36 発言
【37222】Re:セルの転記 ichinose 06/4/26(水) 6:39 発言
【37227】Re:セルの転記 マキチャン 06/4/26(水) 12:46 お礼
【37225】Re:セルの転記 ハト 06/4/26(水) 12:03 発言
【37228】Re:セルの転記 マキチャン 06/4/26(水) 12:54 お礼

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