Excel VBA質問スレ Part5

Excel VBA質問スレ Pa ..

463:デフォルトの名無しさん
08/01/22 13:25:13
Ｅ６からＥ２６とＮ６からＮ２６に数字を入力したのですが、このコードよりも簡単な方法はないでしょうか？

Dim c As Long
Dim f As String
Dim v1() As Variant
Dim v2() As Variant
With Excel.Range("E6:E26,N6:N26")
c = .Areas.Item(1).Count
f = "ROW(" & .Worksheet.Range("A1") _
.Resize(c).Address & ")"
v1 = .Application.Evaluate(f)
v1 = .Application.Small(.Cells, v1)
f = "ROW(" & .Worksheet.Range("A" & 1 + c) _
.Resize(.Areas.Item(2).Count).Address & ")"
v2 = .Application.Evaluate(f)
v2 = .Application.Small(.Cells, v2)
.ClearContents
.Areas.Item(1).Value = v1
.Areas.Item(2).Value = v2
End With

次ページ

続きを表示

1を表示