エクセルで

質問

例えば同じ列のセルA2、A5、A7が空白の時にH2、H5、H7が空白、さらにできればJ2、J5、J7も空白になるようにするにはどうすればよいでしょうか？できればマクロで教えていただけるとありがたいです。どなたかご教授下さい。

回答No.3

merlionXX · ベストアンサー

> A？が空白の時に同じ行のH列やF列のセルが空白になるようにしたいのです。

最初の質問からでは、そういう意図は読み取れませんでしたが、こういうことでしょうか？

Sub test01()
With ActiveSheet.UsedRange
x = .Cells(.Count).Row '最終行取得
End With
For n = 1 To x '最終行まで
If Cells(n, "A") = "" Then 'A列n行が空白なら
Cells(n, "H") = "" 'H列n行を空白に
Cells(n, "J") = "" 'J列n行を空白に
End If
Next '繰り返し
End Sub

回答No.2

blindcrow

こんにちは。

関数ではだめなんでしょうか？

セルＨ１に「=If(A1="","",A1)」と入力
　↓
オートフィルで任意の行までコピー
　↓
Ｈ列をコピーしてＪ列に貼り付け

これで、Ａ列で空白があるセルと同じ行のＨ、Ｊ列セルが自動的に空白になります。

回答No.1

hirumin

質問の条件だけを行うなら、以下のもので出来ます。

Sub Macro()
If Range("A2") = "" And Range("A5") = "" And Range("A7") = "" Then
Range("H2") = ""
Range("H5") = ""
Range("H7") = ""
Range("J2") = ""
Range("J5") = ""
Range("J7") = ""
End If
End Sub

お礼

ご返答ありがとうございます。ただこちら例になりますのでA？が空白の時に同じ行のH列やF列のセルが空白になるようにしたいのです。宜しくお願いいたします。