Excel VBA質問箱 IV

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

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


71679 / 76738 ←次へ | 前へ→

【9552】Re:列に現れる文字や数字の種類
お礼  ムーミン E-MAIL  - 03/12/8(月) 15:06 -

引用なし
パスワード
   ▼ichinose さん:
>ムーミン さん、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
>
>アクティブシートに対してのコードです。
>確認してみて下さい。

INAさん、お忙しいところありがとうございました。
試してみます。

0 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 お礼

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