Excel VBA質問箱 IV

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

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


1024 / 76735 ←次へ | 前へ→

【81369】[無題]二次元配列の要素をセルA列に転記
質問  T-K  - 20/7/3(金) 0:30 -

引用なし
パスワード
   Sheet1のデータを、二次元配列に取り込みそれをSheet5のシートの列
に代入したいのですが、やり方がわからずこまっています。
わかる方いらしたら教えてくださいよろしくお願いします。

Shhet1内容
B2からF22まで題目がありますG2〜2最終列まで日にち B3からF51まで製品内容
C3からFE51まで予定数のクロス集計表

Sheet5
Sheet1の内容をデータベースシートにしたいです。

途中までのプログラム

Option Base 1

Sub テーブルに変換()


Dim Myval2() '配列Myval2宣言
Dim Myval
Dim tmp


Dim i As Long 'Long型 iを宣言
Dim K As Long 'Long型 Kを宣言
Dim m As Long
Dim s As Long
Dim Sh1 As Worksheet
Dim Sh5 As Worksheet

Dim Myval3()

  Set Sh1 = Worksheets("Sheet1")
  Set Sh5 = Worksheets("Sheet5")
  
  Sh1.Activate
   Range("A1").Select
  

Myval = Sh1.Range("B2").Resize _
(Range("B65536").End(xlUp).Row, Range("xfc2").End(xlToLeft).Column)

ReDim Preserve Myval2(UBound(Myval, 1), UBound(Myval, 2))


For i = 1 To UBound(Myval, 1)

  For K = 6 To UBound(Myval, 2)


Myval2(i, K) = Myval(i, 1) & "_" & Myval(i, 2) & "_" & Myval(i, 3) _
& "_" & Myval(i, 4) & "_" & Myval(i, 5) _
& "_" & Myval(1, K) & "_" & Myval(i, K)
       

  Next
Next


Sh5.Activate
Sh5.Cells(1, 1).Select

’ここでSheet5へ転記したいのですが、やり方がわかりません


 Columns("A:A").Select
  Selection.AutoFilter
  ActiveSheet.Range("$A$1:$A$10000").AutoFilter Field:=1, Criteria1:="<>"
  Selection.Copy
  Columns("B:B").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Application.CutCopyMode = False
  Columns("A:A").Select
  Selection.Delete Shift:=xlToLeft


For m = 2 To Range("A65536").End(xlUp).Row


 tmp = Split(Cells(m, 1), "_")
 Cells(m, 2) = tmp(0)
 Cells(m, 3) = tmp(1)
  Cells(m, 4) = tmp(2)
  Cells(m, 5) = tmp(3)
   Cells(m, 6) = tmp(4)
   Cells(m, 7) = tmp(5)
    Cells(m, 8) = tmp(6)
 Next
 
 
 Range("A:A").Select
 
 Selection.Delete


End Sub
2 hits

【81369】[無題]二次元配列の要素をセルA列に転記 T-K 20/7/3(金) 0:30 質問[未読]
【81370】Re:[無題]二次元配列の要素をセルA列に転... マナ 20/7/3(金) 21:26 発言[未読]
【81371】Re:[無題]二次元配列の要素をセルA列に転... T-k 20/7/4(土) 23:42 お礼[未読]
【81372】Re:[無題]二次元配列の要素をセルA列に転... マナ 20/7/5(日) 8:21 発言[未読]
【81373】Re:[無題]二次元配列の要素をセルA列に転... T-K 20/7/6(月) 23:43 発言[未読]
【81374】Re:[無題]二次元配列の要素をセルA列に転... マナ 20/7/7(火) 15:25 発言[未読]
【81375】Re:[無題]二次元配列の要素をセルA列に転... T−k 20/7/7(火) 22:06 お礼[未読]

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