Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52299 / 76738

←次へ　｜　前へ→


	【29279】Re:3つのデータを比較して削除する方法

Jaka - 05/9/29(木) 15:15 -


	引用なし

	パスワード

今一効率のよさそうな物が思い浮かびませんでした。

Sub aaaaaaa()
Dim TB(1 To 3) As Variant, St As Long, FC As Long
Dim ColM As Variant, i As Integer
St = 2: FC = 1
Do
　FC = FC + 1
　TB(1) = Application.Match("フラグ" & FC, Columns(2), 0)
　TB(2) = Application.Match("フラグ" & FC, Columns(4), 0)
　TB(3) = Application.Match("フラグ" & FC, Columns(6), 0)
　If IsError(TB(1)) Or IsError(TB(2)) Or IsError(TB(3)) Then
　　 Erase TB
　　 Exit Sub
　End If
　Application.ScreenUpdating = False
　ColM = Application.Min(TB)
　For i = 2 To 6 Step 2
　　　Do
　　　　 'Cells(ColM, i).Select
　　　　 If Not (Cells(ColM, i).Value Like "フラグ*") Then
　　　　　　Cells(ColM, i).Delete
　　　　 Else
　　　　　　Exit Do
　　　　 End If
　　　Loop
　Next
　St = ColM
Loop
Application.ScreenUpdating = True
Erase TB
End Sub

0 hits

▼

【29276】3つのデータを比較して削除する方法 haramama 05/9/29(木) 13:17