Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30065 / 76732 ←次へ | 前へ→

【51937】Re:上下部に分けたセルの大小比較について
発言  ponpon  - 07/10/12(金) 13:37 -

引用なし
パスワード
   ▼カスミ さん:
>いつもお世話になってます。
>
>エクセルで縦250・横250の正方形セルの塊A,Bが上下に2つ並んでいます。
>
>つまり塊Aの横はA1からIP1(250)、縦はA1からA250をそれぞれ1辺とした正方形でそのセルの中には値が入っています。
>
>同様に塊Bの横はA1からIP1(250)、縦はA251からA500で値が入っています。
>
>この2つの塊の同じ位置関係にあるセル同士をそれぞれ大小比較して値の小さいほうに直すにはどうしたらよいでしょうか。
>(例:セルA1とA251,B3とB254…をそれぞれ比較し小さい数値を採用します)
>
>学校の問題集にあるような質問になってしまい、お恥ずかしいですがよろしくお願いします。

こんにちは。
4×4でやってみるとこんな感じになると思いますが、
意味は取り違えていませんか。
参考にしてください。
ただし、列数、行数とも多いので一度値を配列に入れて、
比較し、吐き出したほうが早いかもしれません。

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
0 hits

【51934】上下部に分けたセルの大小比較について カスミ 07/10/12(金) 12:49 質問
【51937】Re:上下部に分けたセルの大小比較について ponpon 07/10/12(金) 13:37 発言
【51958】Re:上下部に分けたセルの大小比較について ponpon 07/10/12(金) 22:33 発言
【51961】Re:上下部に分けたセルの大小比較について カスミ 07/10/13(土) 0:27 お礼

30065 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free