Excel VBA質問箱 IV

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

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


48965 / 76732 ←次へ | 前へ→

【32693】Re:VBAで同一セル内に同じ文字がいくつ存在するかを調べたい
回答  Kein  - 05/12/20(火) 22:27 -

引用なし
パスワード
   Sub Nm_Count()
  Dim Ary1 As Variant, Ary2 As Variant
  Dim Ary3() As String
  Dim i As Integer, j As Integer
 
  Ary1 = Split(Range("A1").Value, Chr(164))
  ReDim Ary3(j): Ary3(j) = ""
  For i = LBound(Ary1) To UBound(Ary1)
   If IsError(Application.Match(Ary1(i), Ary3, 0)) Then
     Ary2 = Filter(Ary1, Ary1(i), True)
     MsgBox Ary1(i) & " の個数は " & UBound(Ary2) + 1 & "個"
     Erase Ary2: j = j + 1
     ReDim Preserve Ary3(j): Ary3(j) = Ary1(i)
   End If
  Next i
  Erase Ary1, Ary3
End Sub

で、どうでしょーか ?

0 hits

【32630】VBAで同一セル内に同じ文字がいくつ存在するかを調べたい まこと 05/12/20(火) 9:19 質問
【32633】Re:VBAで同一セル内に同じ文字がいくつ存在... Blue 05/12/20(火) 9:24 発言
【32635】Re:VBAで同一セル内に同じ文字がいくつ存在... だるま 05/12/20(火) 9:30 回答
【32637】Re:VBAで同一セル内に同じ文字がいくつ存在... Blue 05/12/20(火) 9:39 発言
【32692】Re:VBAで同一セル内に同じ文字がいくつ存在... [名前なし] 05/12/20(火) 21:47 発言
【32707】Re:VBAで同一セル内に同じ文字がいくつ存在... ichinose 05/12/21(水) 8:09 発言
【32712】Re:VBAで同一セル内に同じ文字がいくつ存在... Jaka 05/12/21(水) 9:47 発言
【32693】Re:VBAで同一セル内に同じ文字がいくつ存在... Kein 05/12/20(火) 22:27 回答

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