Excel VBA質問スレ Part8

Excel VBA質問スレ Pa ..

648:デフォルトの名無しさん
08/10/25 14:59:26
>>633
unionでいいんなら

Sub test()
Dim rg1 As Range, c As Integer
c = 8
Set rg1 = Intersect(Union(Selection, Selection).EntireRow, Columns(c))
Debug.Print WorksheetFunction.Subtotal(9, rg1)
End Sub

次ページ