Excel VBA質問箱 IV

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

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


71675 / 76733 ←次へ | 前へ→

【9551】Re:列に現れる文字や数字の種類
回答  ichinose  - 03/12/8(月) 15:01 -

引用なし
パスワード
   ムーミン さん、INA さん、こんにちは。

色んな方法があると思いますが、ロジックとしては、

1 重複なしのリストを作成(例題の1,3,6を見つけ出す)
2 ↑リストに対して個数のカウント
ですよね?
'=========================================================
Sub main()
  Dim e_row As Long
  Dim idx As Long
  Dim jdx As Long
  Dim r_add As String
  jdx = 1
  e_row = Cells(Rows.Count, 1).End(xlUp).Row
  r_add = Range(Cells(1, 1), Cells(e_row, 1)).Address
  For idx = 1 To e_row
   With WorksheetFunction
     If .CountIf(Range("a1:a" & idx), Range("a" & idx)) = 1 Then
      Range("b" & jdx).Value = Range("a" & idx).Value
      Range("c" & jdx).Formula = _
          "=countif(" & r_add & "," & Range("a" & idx).Value _
          & ")"
      jdx = jdx + 1
      End If
     End With
   Next
End Sub

アクティブシートに対してのコードです。
確認してみて下さい。
1 hits

【9534】列に現れる文字や数字の種類 ムーミン 03/12/8(月) 9:44 質問
【9535】Re:列に現れる文字や数字の種類 INA 03/12/8(月) 9:48 回答
【9539】Re:列に現れる文字や数字の種類 ムーミン 03/12/8(月) 9:55 発言
【9540】Re:列に現れる文字や数字の種類 INA 03/12/8(月) 10:08 回答
【9541】Re:列に現れる文字や数字の種類 ムーミン 03/12/8(月) 10:20 質問
【9551】Re:列に現れる文字や数字の種類 ichinose 03/12/8(月) 15:01 回答
【9552】Re:列に現れる文字や数字の種類 ムーミン 03/12/8(月) 15:06 お礼
【9553】Re:列に現れる文字や数字の種類 INA 03/12/8(月) 15:10 回答
【9554】Re:列に現れる文字や数字の種類 ムーミン 03/12/8(月) 15:14 お礼

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