| |
▼カスミ さん：
>>（例：セルA1とA251,B3とB254…をそれぞれ比較し小さい数値を採用します)
↑
B3とB253じゃないですか？
>意味は取り違えていませんか。
2つの表はどちらも同じになるのですよね？
>ただし、列数、行数とも多いので一度値を配列に入れて、
>比較し、吐き出したほうが速いかもしれません。
やってみました。
Option Explicit
Sub test2()
Dim myR1 As Range, myR2 As Range
Dim myAry1 As Variant, myAry2 As Variant
Dim i As Long, j As Long
Set myR1 = Range(Cells(1, 1), Cells(250, 1)).Resize(, 250)
Set myR2 = Range(Cells(251, 1), Cells(500, 1)).Resize(, 250)
myAry1 = myR1.Value
myAry2 = myR2.Value
For i = 1 To UBound(myAry1, 1)
For j = 1 To UBound(myAry1, 2)
If myAry1(i, j) < myAry2(i, j) Then
myAry2(i, j) = myAry1(i, j)
Else
myAry1(i, j) = myAry2(i, j)
End If
Next
Next
myR1.Value = myAry1
myR2.Value = myAry2
End Sub
|
|
ponpon
- 07/10/12(金) 22:33 -
