Excel VBA質問箱 IV

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

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


60717 / 76732 ←次へ | 前へ→

【20652】Re:データのカウントについて
回答  かみちゃん  - 04/12/14(火) 7:25 -

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

>>データの状態が最初と変わってますけど・・・。
>すいません。書き忘れました。
>おっしゃる通りです。反省します。

ここに回答しようとしている人の気持ちも考えてください。
私の場合は、自分の勉強のためにもあるのですが、それなりに労力と時間をかけています。
それを「忘れていた」で片付けられたのでは、たまったものではないです。

と、小言は、これくらいにして、「訂正後!」の要件であれば、やはり最初に提示したURLのコードをアレンジして作ってみました。
完璧に要件にはまっているわけではないですが、ある程度できるはずです。(もちろん、動作確認すみです。)

Option Explicit

Sub MyCount2()
 Dim Sn As String
 Dim ColumnNo As Integer, MaxColumnNo As Integer
 Dim CountRange As Range

 Sn = ActiveSheet.Name & "!"
 Rows(1).Insert xlShiftDown
 MaxColumnNo = Range("A2").CurrentRegion.Columns.Count
 With Sheets("Sheet3")
  For ColumnNo = 1 To MaxColumnNo
   Cells(1, ColumnNo).Value = "Data_Count"
   Range(Cells(1, ColumnNo), Cells(65536, ColumnNo).End(xlUp)) _
    .AdvancedFilter xlFilterCopy, , .Range("A65536").End(xlUp).Offset(1, 0), True
   Set CountRange = .Range("B65536").End(xlUp)
   With .Range(CountRange.Offset(1, 0), .Range("A65536").End(xlUp).Offset(, 1))
    .Formula = "=COUNTIF(" & Sn & Columns(ColumnNo).Address & "," & CountRange.Offset(1, -1).Address(RowAbsolute:=False) & ")"
'    .Value = .Value
   End With
  Next
  Rows(1).Delete xlShiftUp
  .Activate
  Rows(1).Delete xlShiftUp
 End With
 With Range("A1").CurrentRegion
  .AutoFilter Field:=1, Criteria1:="Data_Count"
  .SpecialCells(xlCellTypeVisible).EntireRow.Delete Shift:=xlUp
  .AutoFilter Field:=1
  .AutoFilter
 End With
 Range("A1").Select
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 お礼

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