Excel VBA質問箱 IV

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

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


48753 / 76736 ←次へ | 前へ→

【32914】Re:ブック内の不要データを削除するには
発言  ponpon  - 05/12/26(月) 23:52 -

引用なし
パスワード
   こんばんは。

>担当者、作成日が入った場合は、どのように対応すればいいでしょうか?
>たまに「空き行」がありますので、その空き行も削除するには、可能でしょうか?

数式に追加すればよいです。

Sub test()
  Dim myR As Range
  
  Application.ScreenUpdating = False
  With Worksheets("Sheet1")
  Set myR = .Range("A2", .Range("A65536").End(xlUp))
    With myR.Offset(, 26)
       .Value = "=IF(A2=""都道府県"",1,IF(A2="""",1,IF(A2=""担当者"",1,IF(A2=""作成日"",1,""""))))"
       On Error Resume Next
       .SpecialCells(3, 1).EntireRow.Delete
       .ClearContents
       On Error GoTo 0
    End With
    .Columns("A:B").Delete Shift:=xlToLeft
  End With
  Application.ScreenUpdating = True
End Sub
0 hits

【32907】ブック内の不要データを削除するには MoritaK 05/12/26(月) 22:33 質問
【32908】ブック内の不要データを削除するには MoritaK 05/12/26(月) 22:40 質問
【32910】Re:ブック内の不要データを削除するには かみちゃん 05/12/26(月) 22:51 回答
【32912】ブック内の不要データを削除するには MoritaK 05/12/26(月) 23:18 質問
【32913】Re:ブック内の不要データを削除するには かみちゃん 05/12/26(月) 23:23 発言
【32914】Re:ブック内の不要データを削除するには ponpon 05/12/26(月) 23:52 発言
【32915】Re:ブック内の不要データを削除するには かみちゃん 05/12/26(月) 23:54 発言
【32916】Re:ブック内の不要データを削除するには ponpon 05/12/27(火) 0:10 発言
【32911】Re:ブック内の不要データを削除するには ponpon 05/12/26(月) 23:17 発言
【33061】Re:ブック内の不要データを削除するには MoritaK 06/1/1(日) 15:36 お礼

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