Excel VBA質問箱 IV

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

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


30899 / 76738 ←次へ | 前へ→

【51099】Re:補足Re:データベースの作成
回答  じゅんじゅん  - 07/8/28(火) 11:36 -

引用なし
パスワード
   >一旦配列に入れて一気に転記するか
であれば、例えば一例。

Sub try()

'----------------準備-------------------------
Dim i As Long
With Range("A1")
   .Value = 1
   For i = 1 To 3
     .Offset(i, i).Value = i + 1
   Next
End With
'---------------------------------------------

Dim v, vv
Dim rr As Range

For Each rr In Range("A1,B2,C3,D4")
v = v & rr.Value & ","
Next

vv = Split(v, ",")
Range("F1").Resize(, UBound(vv)).Value = vv
End Sub
私が取る方法としては、こんな感じです。
個々のセルの値を一旦連結して、配列にしてます。
1 hits

【51044】データベースの作成 takuya 07/8/26(日) 17:34 質問
【51045】Re:データベースの作成 neptune 07/8/26(日) 19:14 発言
【51047】補足Re:データベースの作成 takuya 07/8/26(日) 21:52 発言
【51048】Re:補足Re:データベースの作成 neptune 07/8/26(日) 22:09 回答
【51064】Re:補足Re:データベースの作成 マキチャン 07/8/27(月) 11:38 回答
【51070】Re:補足Re:データベースの作成 Jaka 07/8/27(月) 14:11 発言
【51084】Re:補足Re:データベースの作成 takuya 07/8/27(月) 21:19 お礼
【51086】Re:補足Re:データベースの作成 takuya 07/8/27(月) 21:31 質問
【51089】Re:補足Re:データベースの作成 マキチャン 07/8/28(火) 8:45 回答
【51090】Re:補足Re:データベースの作成 じゅんじゅん 07/8/28(火) 10:18 発言
【51095】Re:補足Re:データベースの作成 マキチャン 07/8/28(火) 11:06 発言
【51099】Re:補足Re:データベースの作成 じゅんじゅん 07/8/28(火) 11:36 回答
【51092】Re:補足Re:データベースの作成 Jaka 07/8/28(火) 10:32 発言

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