Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30199 / 76738 ←次へ | 前へ→

【51808】Re:I列で空白になっているセルがある行は削除したい
回答  ktm1216  - 07/10/5(金) 12:19 -

引用なし
パスワード
   >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)

0 hits

【51778】I列で空白になっているセルがある行は削除したい ktm1216 07/10/4(木) 12:54 質問
【51780】Re:I列で空白になっているセルがある行は削... Jaka 07/10/4(木) 13:29 発言
【51783】Re:I列で空白になっているセルがある行は削... ktm1216 07/10/4(木) 14:26 お礼
【51792】Re:I列で空白になっているセルがある行は削... ktm1216 07/10/4(木) 19:19 質問
【51804】Re:I列で空白になっているセルがある行は削... Jaka 07/10/5(金) 10:27 発言
【51808】Re:I列で空白になっているセルがある行は削... ktm1216 07/10/5(金) 12:19 回答
【51809】Re:I列で空白になっているセルがある行は削... Jaka 07/10/5(金) 12:50 発言
【51815】Re:I列で空白になっているセルがある行は削... Jaka 07/10/5(金) 16:28 発言
【51829】Re:I列で空白になっているセルがある行は削... tarou 07/10/6(土) 17:06 発言
【51835】Re:I列で空白になっているセルがある行は削... ichinose 07/10/6(土) 20:00 発言
【51839】Re:I列で空白になっているセルがある行は削... ktm1216 07/10/6(土) 21:55 お礼
【51837】Re:I列で空白になっているセルがある行は削... ktm1216 07/10/6(土) 21:50 お礼
【51840】Re:I列で空白になっているセルがある行は削... ktm1216 07/10/6(土) 21:58 お礼

30199 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free