- 62 名前：デフォルトの名無しさん [2009/10/04(日) 21:10:56 ]
- こんばんは。
VBAを始めたばかりで、全然わからないので、
ここで質問させてください！！
A列に"リンゴ"と書かれたセルがあれば、
そのセルと隣のセルを切り取って、貼り付け用のセルに貼り付ける。
なければ、何もしないという構文を書きたいんです。
IF is nothingを使うのかなぁと思ったのですが、
どこに入れればいいのかわからなかったので。。。
ちなみに、貼り付け用のセルに貼り付けた後、
空白になったそのセルを切り取るっていう構文も入れて、
その時に、IFを使っています。
以下に構文を記載しますので、どうしたらいいか教えてください！
よろしくお願いいたします!!!!!
Dim myLastLow as Long
Dim i as Long
Columns(1).Find("りんご").Resize(, 2).Cut Sheets("Sheets1").Columns(1).Find("貼り付け用")
myLastLow = Range("A30").End(xlUp).Row
For i = myLastLow To 1 Step -1
If Cells(i, 1).Value = "" Then
Range("A" & i & ":B" & i).Delete shift:=xlShiftUp
End If
Next i
|
 |
