いつもお世話になっております
読み込みで一行おきに配列に格納したのですが、
できますでしょうか
理由は書き出すときに
添付ファイルのようにしたのです
わかる方おしえてくれませんでしょうか
Dim mData1 As Variant, mData2 As Variant
With Range("B2")
mData1 = .CurrentRegion.Value
End With
ReDim mData2(1 To UBound(mData1), 1 To UBound(mData1, 2))
Dim i As Long, j As Long, Cnt As Long
Cnt = 2
For i = 2 To UBound(mData1)
For j = 1 To UBound(mData1, 2)
mData2(i, j) = mData1(i, j)
Next j
Cnt = Cnt + 1
Next i
No.1ベストアンサー
- 回答日時:
こんばんは。
例えば、下記の様な感じでしょうか? 手入力で実際に試していないので、
若しかしたら、エラーになるかも知れませんが。。。
Dim mData1 As Variant, mData2() As String
Dim i As Long, j As Long
With Range("B2")
mData1 = .CurrentRegion.Value
End With
Redim mData2(UBound(mData1)*2-3,UBound(mData1, 2))
For i = 2 To UBound(mData1)
For j = 1 To UBound(mData1, 2)
mData2(i*2-3, j) = mData1(i, j)
Next j
Next i
ありがとうございました。
まさしく これです。
配列に一行おきに格納して
吐き出すほうが早いと思いました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) Sub 分けてソートして貼り付ける() Dim srcSheet As Worksheet Dim 6 2023/08/04 19:57
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) ExcelVBAで質問です。離れた二次元配列を一つにしたい 4 2022/07/26 19:06
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) VBA 配列を使ったコードに直していただけますか 4 2023/05/06 15:18
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Visual Basic(VBA) Dateserialで データ抽出 2 2022/06/26 21:07
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ExcelVBAで質問です。離れた二次元配列を一つにしたい
Visual Basic(VBA)
-
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
配列の値を置換するにはどうすればいいでしょう?
Excel(エクセル)
-
-
4
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
5
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
6
エクセルで可視セルにのみ値貼り付けをする方法があったら教えて下さい やりたいこととしては フィルター
Excel(エクセル)
-
7
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
8
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
9
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
10
Excelのセルの色指定をVBAから配列を用いて効率的に行う方法はあり
Visual Basic(VBA)
-
11
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
12
配列でデータが入っている要素を求める方法
Visual Basic(VBA)
-
13
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
14
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
-
15
空白への0入力 二次元配列(VBA)
Excel(エクセル)
-
16
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
17
EXCEL VBA Dictionaryで複数の値を格納→離れた位置に出力する方法
Excel(エクセル)
-
18
【Excel】セル内の時間帯が特定の時間帯に含まれるかの判定
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
表にフィルターをかけ、絞った...
-
ExcelのINDEXとMATCH関数でスピ...
-
Excelのオートフィルタで抽出し...
-
配列がとびとびである場合の書き方
-
Excelのセルの色指定をVBAから...
-
DataSetから、DataTableを取得...
-
EXCEL VBA 2次元配列に格納さ...
-
エクセルで、絶対値の平均を算...
-
VBA Dictionaryオブジェクトの...
-
Dictionaryを使い4つの条件の一...
-
C言語で、変数名を引数として渡...
-
バイト配列の構造体変換について
-
エクセルの行の削除を配列で高...
-
バッファーオーバラン
-
MFC コンボボックスを複数扱う
-
.NET - 配列変数を省略可能の引...
-
iniファイルのキーと値を取得す...
-
【VBA】配列に数式を仕込む方法...
-
Split関数でLong配列に格納する...
-
array関数で格納した配列の型を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのセルの色指定をVBAから...
-
ExcelのINDEXとMATCH関数でスピ...
-
[エクセル]連続する指定範囲か...
-
array関数で格納した配列の型を...
-
表にフィルターをかけ、絞った...
-
エクセルで、絶対値の平均を算...
-
配列がとびとびである場合の書き方
-
[VBA]改行入りのセルの値を配列...
-
Excel オートフィルタのリスト...
-
DataSetから、DataTableを取得...
-
iniファイルのキーと値を取得す...
-
配列のSession格納、及び取得方...
-
エクセルでエラーを無視して一...
-
エクセル 条件を指定した標準...
-
Dictionaryを使い4つの条件の一...
-
読み込みで一行おきに配列に格納
-
.NET - 配列変数を省略可能の引...
-
For Nextマクロの高速化につい...
-
SUMPRODUCT関数を用いた最小値
-
VB6.0 ファイルの一括読込み
おすすめ情報