| |
▼カスミ さん：
>いつもお世話になってます。
>
>エクセルで縦250・横250の正方形セルの塊A,Bが上下に2つ並んでいます。
>
>つまり塊Aの横はA1からIP1（250）、縦はA1からA250をそれぞれ１辺とした正方形でそのセルの中には値が入っています。
>
>同様に塊Bの横はA1からIP1（250）、縦はA251からA500で値が入っています。
>
>この２つの塊の同じ位置関係にあるセル同士をそれぞれ大小比較して値の小さいほうに直すにはどうしたらよいでしょうか。
>（例：セルA1とA251,B3とB254…をそれぞれ比較し小さい数値を採用します）
>
>学校の問題集にあるような質問になってしまい、お恥ずかしいですがよろしくお願いします。
こんにちは。
４×４でやってみるとこんな感じになると思いますが、
意味は取り違えていませんか。
参考にしてください。
ただし、列数、行数とも多いので一度値を配列に入れて、
比較し、吐き出したほうが早いかもしれません。
Sub test()
Dim myR1 As Range, myR2 As Range
For i = 1 To 4
For j = 1 To 4
Set myR1 = Cells(i, j)
Set myR2 = Cells(i + 4, j)
If myR1.Value < myR2.Value Then
myR2.Value = myR1.Value
Else
myR1.Value = myR2.Value
End If
Next
Next
End Sub
|
|
ponpon
- 07/10/12(金) 13:37 -
