こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBAで連続して二つのセルの内容をを一つのセルにコピー

初めまして、よろしくお願いします。
VBAで連続して二つのセルの内容をを一つのセルにコピーしたいと考えています。
Sub Test1()
Sheet1.Range("A1") = Sheet2.Range("A1") & Sheet2.Range("C1")
End Sub
というのは解りますが、A1からA100までの連続で、その間空白がある場合のVBAを教えて頂きたく、よろしくお願いします。

投稿日時 - 2010-01-04 17:38:03

QNo.5567199

困ってます

質問者が選んだベストアンサー

>解答ありがとうございます。この式でうまくできましたが、
>空白の間は詰めてコピーしてしまうことが残念です。
残念と仰られてもどうしたいのか説明がありません。
こちらもどうしてよいのか解りません。

>参考にさせて頂きたいと思います。
頑張ってみてください。
躓いた場合は、遠慮なく捕捉欄で質問してください。
その際、どういう結果を得たいのか説明をお願いします。
編集中のコードも提示していただくとアドバイスし易いです。

投稿日時 - 2010-01-04 21:47:07

お礼

 表現方法に失礼や言葉足らずがあったようで、申し訳ありませんでした。

投稿日時 - 2010-01-05 07:01:55

ANo.2

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

こんな感じでどうでしょうか。

Dim c As Range
Dim i As Long

For Each c In Sheet2.Range("A1:A100")
If c <> "" or c.Offset(, 2) <> "" Then
i = i + 1
Sheet1.Range("A" & i).Value = c.Value & c.Offset(, 2).Value
End If
Next

投稿日時 - 2010-01-04 18:34:19

お礼

 解答ありがとうございます。この式でうまくできましたが、空白の間は詰めてコピーしてしまうことが残念です。参考にさせて頂きたいと思います。

投稿日時 - 2010-01-04 21:26:47

あなたにオススメの質問