Excel VBA質問箱 IV

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

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


4840 / 76732 ←次へ | 前へ→

【77507】Re:負荷のなくシートないのデータを取得する方法
発言  β  - 15/10/17(土) 17:26 -

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

たとえば、シートの行単位に処理をすればいいということなら、以下のコードは
シートの行ごとに、その値を1つの文字列に連結するサンプルです。
列数にもよりますが、そんなに大きな負荷にはならないと思います。

Sub Sample()
  Dim v As Variant
  Dim s As String
  Dim i As Long
  
  v = WorksheetFunction.Transpose(Range("A1", ActiveSheet.UsedRange))
  
  For i = 1 To UBound(v, 2)
    s = Join(WorksheetFunction.Transpose(Application.Index(v, Evaluate("row(1:" & UBound(v, 1) & ")"), Array(i))), "")
    MsgBox s
    's に現在の行のセルの値が連結されているので、それに対する正規表現などによる処理をここで
  Next
  
End Sub
1 hits

【77504】負荷のなくシートないのデータを取得する方法 Show 15/10/17(土) 12:34 質問[未読]
【77506】Re:負荷のなくシートないのデータを取得す... β 15/10/17(土) 16:10 発言[未読]
【77507】Re:負荷のなくシートないのデータを取得す... β 15/10/17(土) 17:26 発言[未読]
【77508】Re:負荷のなくシートないのデータを取得す... β 15/10/17(土) 17:37 発言[未読]
【77514】Re:負荷のなくシートないのデータを取得す... Show 15/10/18(日) 5:11 お礼[未読]
【77564】Re:負荷のなくシートないのデータを取得す... Show 15/10/23(金) 16:36 質問[未読]
【77566】Re:負荷のなくシートないのデータを取得す... β 15/10/23(金) 19:09 発言[未読]
【77567】Re:負荷のなくシートないのデータを取得す... β 15/10/23(金) 19:17 発言[未読]
【77569】Re:負荷のなくシートないのデータを取得す... β 15/10/24(土) 1:58 発言[未読]
【77571】Re:負荷のなくシートないのデータを取得す... Show 15/10/25(日) 5:14 お礼[未読]
【77572】Re:負荷のなくシートないのデータを取得す... β 15/10/25(日) 19:42 発言[未読]
【77596】Re:負荷のなくシートないのデータを取得す... Show 15/10/31(土) 11:23 お礼[未読]

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