Excel VBA質問箱 IV

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

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


30046 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼カスミ さん:

>>(例:セル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
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 お礼

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