Excel VBA質問箱 IV

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

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


25968 / 76732 ←次へ | 前へ→

【56101】Re:行単位の比較方法
発言  n  - 08/6/2(月) 0:37 -

引用なし
パスワード
   こんにちは。

例えばですが
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判定したほうが速そうです。
7 hits

【55989】行単位の比較方法 74 08/5/28(水) 20:41 質問
【55991】Re:行単位の比較方法 74 08/5/28(水) 21:20 発言
【56014】Re:行単位の比較方法 Abebobo 08/5/29(木) 17:18 発言
【56018】Re:行単位の比較方法 74 08/5/29(木) 18:11 回答
【56021】Re:行単位の比較方法 Abebobo 08/5/29(木) 19:39 発言
【56024】Re:行単位の比較方法 74 08/5/29(木) 20:34 お礼
【56027】Re:行単位の比較方法 Abebobo 08/5/29(木) 21:30 発言
【56046】Re:行単位の比較方法 74 08/5/30(金) 13:16 お礼
【56048】Re:行単位の比較方法 Abebobo 08/5/30(金) 13:45 発言
【56101】Re:行単位の比較方法 n 08/6/2(月) 0:37 発言
【56103】Re:行単位の比較方法 74 08/6/2(月) 9:18 お礼
【56105】Re:行単位の比較方法 Abebobo 08/6/2(月) 11:01 発言
【56150】Re:行単位の比較方法 n 08/6/5(木) 14:37 発言
【56154】Re:行単位の比較方法 Abebobo 08/6/5(木) 20:20 発言
【56108】Re:行単位の比較方法 Yuki 08/6/2(月) 11:22 発言
【56109】Re:行単位の比較方法 kanabun 08/6/2(月) 19:06 発言
【56113】Re:行単位の比較方法 74 08/6/3(火) 10:36 お礼
【56115】Re:行単位の比較方法 kanabun 08/6/3(火) 12:43 発言
【56139】Re:行単位の比較方法 74 08/6/4(水) 12:02 お礼

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