Excel VBA質問箱 IV

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

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


18724 / 76732 ←次へ | 前へ→

【63446】Re:リスト削除
発言  kanabun  - 09/11/4(水) 16:07 -

引用なし
パスワード
   ▼たつ さん:
こんにちは。おじゃまします。
(Windows 7 にアップグレードして はじめてのレスです)

遡及する案がたくさん出ていますが、
単純に上から削除アイテム追加して削除行にチェックしていったとき、
どんな不具合が出短でしたっけ?
再度 ↓で検証してみていただけませんか?

Sub Try1()
  Dim dic As Object
  Dim c As Range
  Set dic = CreateObject("Scripting.Dictionary")
  '[Sheet2] 削除リスト取得
  With Worksheets("Sheet2")
    For Each c In .Range("A1", .Cells(Rows.Count, 1).End(xlUp))
     dic(c.Value) = Empty
    Next
  End With
  
  Dim r As Range
  Dim v, u, i As Long, ss As String
  With Worksheets("Sheet1")
    Set r = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
    v = r.Resize(, 2).Value
    With r.Columns(3)
      .ClearContents
      u = .Value
    End With
    For i = 1 To UBound(v) 'A列を上から順に調べる(遡及チェックなし)
      If dic.Exists(v(i, 1)) Then
        u(i, 1) = "←削除"
        ss = v(i, 2)
        If ss Like "CA*" Then ss = Mid$(ss, 3)
        dic(ss) = Empty
      End If
    Next
    With r.Columns(3)
      .Value = u
      '.specialcells(xlconstants).entirerow.delete
    End With
  End With
  Set dic = Nothing
End Sub

1 hits

【63411】リスト削除 たつ 09/11/2(月) 14:26 質問
【63413】Re:リスト削除 Yuki 09/11/2(月) 15:07 発言
【63415】Re:リスト削除 たつ 09/11/2(月) 15:21 発言
【63414】Re:リスト削除 こもと 09/11/2(月) 15:17 発言
【63417】Re:リスト削除 たつ 09/11/2(月) 15:52 質問
【63419】Re:リスト削除 こもと 09/11/2(月) 16:56 発言
【63418】Re:リスト削除 たつ 09/11/2(月) 16:54 質問
【63421】Re:リスト削除 こもと 09/11/2(月) 17:09 発言
【63431】Re:リスト削除 たつ 09/11/3(火) 14:45 お礼
【63442】Re:リスト削除 たつ 09/11/4(水) 8:39 質問
【63443】Re:リスト削除 Hirofumi 09/11/4(水) 13:26 発言
【63444】Re:リスト削除 たつ 09/11/4(水) 15:16 質問
【63445】Re:リスト削除 Hirofumi 09/11/4(水) 15:43 回答
【63447】Re:リスト削除 たつ 09/11/5(木) 11:25 お礼
【63446】Re:リスト削除 kanabun 09/11/4(水) 16:07 発言
【63425】Re:リスト削除 SS 09/11/2(月) 20:05 発言
【63432】Re:リスト削除 たつ 09/11/3(火) 14:47 お礼
【63426】Re:リスト削除 Hirofumi 09/11/2(月) 20:15 回答
【63427】Re:リスト削除 Hirofumi 09/11/3(火) 12:29 回答
【63433】Re:リスト削除 たつ 09/11/3(火) 14:49 お礼
【63428】Re:リスト削除 arajin 09/11/3(火) 14:20 回答
【63429】Re:リスト削除 arajin 09/11/3(火) 14:25 回答
【63434】Re:リスト削除 たつ 09/11/3(火) 14:51 お礼

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