Excel VBA質問箱 IV

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

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


52293 / 76732 ←次へ | 前へ→

【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 質問
【29279】Re:3つのデータを比較して削除する方法 Jaka 05/9/29(木) 15:15 回答
【29288】Re:3つのデータを比較して削除する方法 haramama 05/9/29(木) 18:22 お礼
【29365】修正 Jaka 05/10/3(月) 9:20 回答
【29400】Re:修正 haramama 05/10/4(火) 13:59 お礼
【29403】Re:修正 Jaka 05/10/4(火) 14:18 発言
【29404】Re:修正 haramama 05/10/4(火) 15:00 お礼

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