Excel VBA質問箱 IV

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

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


16472 / 76734 ←次へ | 前へ→

【65728】Re:検索結果をカウントしたい
発言  Jaka  - 10/6/24(木) 9:58 -

引用なし
パスワード
   Dim my検索セル1 As Range
Dim Cel As Range, SavAd As String, Ct As Long

Range("F1:F9").ClearContents

With Range("E1:E9")
   For Each Cel In .Cells
     If Cel.Offset(, 1).Value = "" Then
      Set my検索セル1 = .Find(What:=Cel.Value, After:=.Cells(.Cells.Count), _
               LookIn:=xlValues, LookAt:=xlWhole)
      If Not my検索セル1 Is Nothing Then
        Ct = 0
        SavAd = my検索セル1.Address
        Do
          Ct = Ct + 1
          'my検索セル1.Select
          my検索セル1.Offset(, 1).Value = Ct
          Set my検索セル1 = .FindNext(After:=my検索セル1)
        Loop Until SavAd = my検索セル1.Address
      End If
     End If
   Next
End With
2 hits

【65719】検索結果をカウントしたい kei 10/6/23(水) 15:20 質問
【65720】Re:検索結果をカウントしたい Jaka 10/6/23(水) 16:03 発言
【65721】Re:検索結果をカウントしたい kei 10/6/23(水) 17:13 質問
【65728】Re:検索結果をカウントしたい Jaka 10/6/24(木) 9:58 発言
【65732】Re:検索結果をカウントしたい Jaka 10/6/24(木) 10:39 発言
【65735】Re:検索結果をカウントしたい kei 10/6/24(木) 11:37 質問
【65736】Re:検索結果をカウントしたい Jaka 10/6/24(木) 11:52 発言
【65738】Re:検索結果をカウントしたい kei 10/6/24(木) 14:02 お礼

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