| 
    
     |  | こんにちは。 
 例えばですが
 Dim v, w
 
 v = Range("A1").Resize(10, 10).Value
 w = Range("K1").Resize(10, 10).Value
 With Application
 Debug.Print Join(.Index(v, 1, 0)) = Join(.Index(w, 1, 0))
 End With
 こんな感じや、
 
 '参照設定:Microsoft Forms 2.0 Object Library
 Dim s1() As String
 Dim s2() As String
 
 Range("A1").Resize(10, 10).Copy
 With New DataObject
 .GetFromClipboard
 s1 = Split(.GetText, vbCrLf)
 Range("K1").Resize(10, 10).Copy
 .GetFromClipboard
 s2 = Split(.GetText, vbCrLf)
 End With
 Application.CutCopyMode = False
 Debug.Print s1(0) = s2(0)
 こんな感じとか。
 
 #でも、配列に格納したら、素直にそれをLoop判定したほうが速そうです。
 
 |  |