Excel VBA質問箱 IV

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

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


5144 / 76732 ←次へ | 前へ→

【77201】Re:配列の有効数を求める(空白がある)
発言  kanabun  - 15/6/15(月) 23:17 -

引用なし
パスワード
   いまアクティブなシートの[B1]セルを含む表範囲を配列に入れ、
指定シートに貼り付ける...

イメージとして、こんな処理を想定しましたが、いかがでしょうか?

Public Sub tryA()
 Dim ArrayData As Variant
 
 '表範囲を配列に取り込む
 ArrayData = Range("B1").CurrentRegion.Value
 
 'このBookのSheet1に配列データを貼りつける
 ArrayToSheet ArrayData, ThisWorkbook.Worksheets("Sheet1")

End Sub

'配列データを指定ワークシートの[A1]セルから貼り付け
Public Sub ArrayToSheet(ArrayData As Variant, ws As Excel.Worksheet)
 Dim RowNum As Long
 Dim ColNum As Long
 
 RowNum = UBound(ArrayData, 1)
 ColNum = UBound(ArrayData, 2)
 
 With ws
   .UsedRange.Clear
   .Cells(1).Resize(RowNum, ColNum).Value = ArrayData
 End With

End Sub

363 hits

【77197】配列の有効数を求める(空白がある) まり 15/6/15(月) 17:18 質問[未読]
【77198】Re:配列の有効数を求める(空白がある) kanabun 15/6/15(月) 17:57 発言[未読]
【77199】Re:配列の有効数を求める(空白がある) まり 15/6/15(月) 20:28 質問[未読]
【77200】Re:配列の有効数を求める(空白がある) kanabun 15/6/15(月) 22:38 発言[未読]
【77201】Re:配列の有効数を求める(空白がある) kanabun 15/6/15(月) 23:17 発言[未読]
【77203】Re:配列の有効数を求める(空白がある) β 15/6/16(火) 10:09 発言[未読]
【77204】Re:配列の有効数を求める(空白がある) β 15/6/16(火) 10:23 発言[未読]
【77207】Re:配列の有効数を求める(空白がある) まり 15/6/17(水) 11:00 お礼[未読]
【77208】Re:配列の有効数を求める(空白がある) kanabun 15/6/17(水) 12:56 発言[未読]
【77213】Re:配列の有効数を求める(空白がある) まり 15/6/17(水) 18:11 回答[未読]
【77214】Re:配列の有効数を求める(空白がある) kanabun 15/6/17(水) 18:20 発言[未読]

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