|
こんにちは
>内容は、U列にある1〜10桁の同じ数字を合計し数字別に集計する作業です。
シート名(線)のU列の数字を数字ごとに集計し
編集シートのA列に数字、B列に合計するのですね。
2が3つあれば合計6と言う事ですね。
と考えてこれで如何かな?
Sub Test()
Dim Ws As Worksheet, C As Range, Co As Long
Set Ws = Worksheets("編集")
Application.ScreenUpdating = False
With Worksheets("線")
.Rows(1).Insert Shift:=xlDown
.Range("U1").Value = "項目"
.Range("U1", .Range("U65536").End(xlUp)) _
.AdvancedFilter xlFilterCopy, , Ws.Range("A1"), True
Ws.Range("A1:B1").Value = Array("数字", "合計")
For Each C In Ws.Range("A2", Ws.Range("A65536").End(xlUp))
Co = WorksheetFunction.CountIf(.Columns(21), C.Value)
C.Offset(, 1).Value = C.Value * Co
Next C
Ws.Columns("A:B").EntireColumn.AutoFit
.Rows(1).Delete
End With
Application.ScreenUpdating = True
Set Ws = Nothing
End Sub
記載コードで
「na()」て何ですか?
|
|