|
>Jakaさん
再度ご返信ありがとうございます。
私の方でもなぜ消えないのかを検証していたところ、
おそらくIF関数で空白にしていたセルであったために、
その式のせいで消えなかったみたいです。。。
なので式中に値貼り付けをする式を入れたんですね。
それで値貼り付けまでは出来たのですが、それ以降が
実行されませんでした。
記述はこうです。
ちなみにタイトルではI列となっているのですが、
列の挿入をした関係で今はJ列が対象列です。
Sub 行削除()
Range("J2:J104").Formula = "=IF(G2-H2=0,"""",G2-H2)"
Columns("J:J").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("J:J").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
End Sub
同じ内容を何度も質問してしまって本当ごめんなさい(T T)
|
|