|
▼Kein さん:
>結果を他のシートへ貼り付けたいなら
>
>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
>
これをC列ではなくD列にするにはどうしたらいいですか?
|
|