|
こんにちは。
例えばですが
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判定したほうが速そうです。
|
|