Excel VBA質問箱 IV

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

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


48756 / 76736 ←次へ | 前へ→

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

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

かみちゃんさんから回答がついていますが、
数式でやってみました。
シート名は、そちらにあわせてください。

Sub test()
  Dim myR As Range
  
  With Worksheets("Sheet1")
  Set myR = .Range("A2", .Range("A65536").End(xlUp))
    myR.Offset(, 26).Value = "=IF(A2=""都道府県"",1,"""")"
    On Error Resume Next
    With .Range("AA:AA")
       .SpecialCells(3, 1).EntireRow.Delete
       .ClearContents
    End With
    On Error GoTo 0
    .Columns("A:B").Delete Shift:=xlToLeft
    
  End With
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 お礼

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