エクセルVBAについて教えてください。

質問

エクセル2007を使ったVBAについて2つ質問です。

1つ目の質問は、5列目の右端の数字を2列目の右端に持ってくるため、

Range("B2").End(xlToRight).Next.Select
ActiveCell.FormulaR1C1 = Range("A5").End(xlToRight)

というVBAを組んだのですが、2列目に空白が入っている場合うまく動かないため動くように
したいのですが、どのように組めばいいのかわかりません。

例

　　　A　　　　　B　　　　　C　　　　　D　　　　　E　　　　　F　　　　　G　　　　　H　　　　　I　　　　　J　　　　　K
1　
2　【数値1】　　□　　　　□　　　　 □　　　　　1　　　　　2　　　　　3　　　　　4　　　　　5　
3
4
5　【数値2】　 　6　　 　　7　　 　　8　　　 　9　　　 　10
6

※□は空白

上記の例の場合、5行目の右端である10を2行目の空白を除いた右端である5の隣に持っていきたいです。

2つ目の質問ですが上記例の2列目の両端（1と5）を選択してDeleteする方法がわかりません。

2つの質問についてわかる方おりましたら教えていただけると助かります。
よろしくお願いしします。

回答No.2

keithin · ベストアンサー

Ａ列から右端列まで、カタマリがどこに来るか想定したくないってことなら。
sub macro1()
　with application
　if .count(range("2:2")) < 2 then
　msgbox "ERROR"
　exit sub
　end if

　iif(.isnumber(range("A2")), range("A2"), range("A2").end(xltoright)).clearcontents
　iif(.isnumber(cells(2, columns.count)), cells(2, columns.count), cells(2, columns.count).end(xltoleft)).clearcontents
　end with
end sub

＞以上の条件で

終わらないご相談や、あれもこれもどれもそれもなご相談ばっかりです。

お礼

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

回答No.1

keithin

＞１

２行目も５行目も反対側からジャンプして端を拾います。
range("IV5").end(xltoleft).offset(0, 1).value = range("IV2").end(xltoleft).value

＞２

とりあえず簡単に思いつくマクロ：
union(range("E2"), range("IV2").end(xltoleft)).clearcontents

しかし実は質問１でも同じですが、２行目に
１）確かに一塊の数字が並んでいる場合
２）実は１個しか数字が入ってない場合
３）実は１つも数字が書かれてない場合

また
４）とりあえずＥ２から数字が並んでいることになっているが、それは本当にそうなのか
５）いまは１，２，３，４，５と５つ数字が並んでいる事になってるけど、他のセルはホントに空っぽなのか、たとえば５の右に少し空白を置いてまた次に何か書いてあったりしないのか

など、あらゆる場合を想定してプログラムを（動作を）考えないと、すぐに「想定外」でおかしな動作をするマクロになります。

ご自分でももう少し深く考えて、実際にヤリタイ事に応じたマクロを工夫してみて下さい。

補足

回答ありがとうございます。

1つ目の質問ですが、自分なりに少し変えてうまくできました。
2つ目の質問に補足ですが、E5は固定ではなくあくまで数字のひと固まりの左端と右端を削除するということになります。5行目は固定ですが数字の塊の始まりと終わりは毎回変動します。
また、塊になった数字の間にスペースが入ることはありません。
1つしか数字が入っていない場合または1つも入っていない場合はエラーメッセージを出します。

以上の条件でどのようにすればいいのかをお教え頂くと助かります。