Excel VBA質問箱 IV

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

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


60908 / 76732 ←次へ | 前へ→

【20452】Re:数字の個数について
回答  Kein  - 04/12/9(木) 16:38 -

引用なし
パスワード
   結果を他のシートへ貼り付けたいなら

Sub MyCount()
  Dim Sn As String

  Sn = ActiveSheet.Name & "!"
  Application.ScreenUpdating = False
  Rows(1).insert xlShiftDown
  Range("C1").Value = "Data_Count"
  With Sheets("Sheet2")
   Range("C1", Range("C65536").End(xlUp)) _
   .AdvancedFilter xlFilterCopy, , .Range("A1"), True
   With .Range("B2", .Range("A65536").End(xlUp).Offset(, 1))
     .Formula = "=COUNTIF(" & Sn & "$C:$C,$A2)"
     .Value = .Value
   End With
   Rows(1).Delete xlSiftUp
   .Activate
  End With
  Application.ScreenUpdating = True
End Sub
   
  

0 hits

【20432】数字の個数について キラー 04/12/9(木) 2:16 質問
【20433】Re:数字の個数について かみちゃん 04/12/9(木) 6:46 回答
【20439】Re:数字の個数について キラー 04/12/9(木) 11:44 質問
【20440】Re:数字の個数について IROC 04/12/9(木) 11:53 回答
【20444】Re:数字の個数について キラー 04/12/9(木) 12:28 お礼
【20445】Re:数字の個数について かみちゃん 04/12/9(木) 12:32 発言
【20446】Re:数字の個数について キラー 04/12/9(木) 12:39 質問
【20448】Re:数字の個数について かみちゃん 04/12/9(木) 12:42 回答
【20451】Re:数字の個数について キラー 04/12/9(木) 15:59 お礼
【20452】Re:数字の個数について Kein 04/12/9(木) 16:38 回答
【20457】Re:数字の個数について キラー 04/12/9(木) 18:07 お礼
【20590】Re:数字の個数について カルキン 04/12/13(月) 0:26 質問
【20591】Re:数字の個数について Asaki 04/12/13(月) 0:30 発言
【20596】Re:数字の個数について かみちゃん 04/12/13(月) 6:36 発言
【20597】Re:数字の個数について Asaki 04/12/13(月) 8:54 発言
【20606】Re:数字の個数について カルキン 04/12/13(月) 12:55 質問
【20608】Re:数字の個数について Asaki 04/12/13(月) 13:04 回答

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