Excel VBA質問箱 IV

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

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


60785 / 76732 ←次へ | 前へ→

【20581】Re:データのカウントについて
回答  かみちゃん  - 04/12/12(日) 18:34 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>列ごとに1が何個あって2が何個あって3が何個あってとそれぞれマクロでカウントし、Sheet3に結果を貼り付けたいのですが、どうしたらよいでしょうか?

さきほどご提示したURLとは、まったく違う方法です。
セルの値を1つずつループして検査しますので、処理速度は保証できません。

Option Explicit

Sub Macro1()
 Dim flg As Integer
 Dim c As Range, c2 As Range
 
 flg = 0
 
 '結果出力シートを全消去する
 Sheets("Sheet3").Cells.ClearContents
 
 'Sheet1のA1から空白行空白列で囲まれたセル範囲すべてを検査する。
 For Each c In Sheets("Sheet1").Range("A1").CurrentRegion
  'セルの値が空白のときは、カウントしない
  If c.Value <> "" Then
   With Sheets("Sheet3").Columns("A")
    Set c2 = .Find(c.Value, LookIn:=xlValues)
    If Not c2 Is Nothing Then
     c2.Offset(0, 1).Value = c2.Offset(0, 1).Value + 1
    Else
     With .Range("A65536").End(xlUp)
      .Offset(1 * flg, 0).Value = c.Value
      .Offset(1 * flg, 1).Value = 1
     End With
     flg = 1
    End If
   End With
  End If
 Next
End Sub
0 hits

【20573】データのカウントについて さゆりン 04/12/12(日) 16:01 質問
【20574】Re:データのカウントについて かみちゃん 04/12/12(日) 16:11 発言
【20578】Re:データのカウントについて さゆりン 04/12/12(日) 17:26 質問
【20581】Re:データのカウントについて かみちゃん 04/12/12(日) 18:34 回答
【20582】Re:データのカウントについて さゆりン 04/12/12(日) 19:31 お礼
【20594】Re:データのカウントについて さゆりン 04/12/13(月) 1:54 質問
【20595】Re:データのカウントについて wizik 04/12/13(月) 4:26 発言
【20642】Re:データのカウントについて [名前なし] 04/12/13(月) 21:47 発言
【20645】Re:データのカウントについて さゆりン 04/12/14(火) 0:05 質問
【20647】Re:データのカウントについて [名前なし] 04/12/14(火) 0:28 発言
【20649】Re:データのカウントについて さゆりン 04/12/14(火) 0:56 質問
【20652】Re:データのカウントについて かみちゃん 04/12/14(火) 7:25 回答
【20684】Re:データのカウントについて さゆりン 04/12/15(水) 1:08 お礼
【20700】Re:データのカウントについて [名前なし] 04/12/15(水) 21:39 発言
【20708】Re:データのカウントについて さゆりン 04/12/16(木) 1:44 お礼

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