| |
▼ＫＴＴＫ さん：
こんにちは。
>以下のような表１から表２への編集を考えています。
>ＶＢＡでどのようにコーディングすれば良いのでしょうか？
>色々と試行錯誤を重ねてみましたが、技をあまり知らないため
>うまく出来ません。
次回は、「このうまく出来ない」を具体的に説明してください。
（こんなプログラムを作りましたが、結果は、このようになってしまいます云々）
でも、入力データと出力データの説明は良いですね！！
>
表１ Sheet1
Ａ Ｂ Ｃ Ｄ Ｅ
１ 項目１ 項目２ 項目３ 項目４
２ Ａ 7 5 3
３ Ｂ 2 22 8 7
４ Ｃ 33
５ ・・・
上記の表1がSheet1というシートのセルＡ１から記述されているとします。
>
>表２
> 項目
>Ａ 7
>Ａ 5
>Ａ
>Ａ 3
>Ｂ 2
>Ｂ 22
>・・・
結果は、Sheet2というシートに出力します。
Sheet2は、空のシートを用意して置いてください。
>表１の項目は10個で固定です。
>Ａを１０件作成後、Ｂを１０件、Ｃを１０件というように
>編集をしたいと思っています。
標準モジュールに
'=============================================================
Sub test()
Dim g0 As Long
Dim cl As Long
Dim rng As Range
With Worksheets("sheet1")
Set rng = .Range("b2", .Cells(.Cells(.Rows.Count, "a").End(xlUp).Row, _
.Cells(1, .Columns.Count).End(xlToLeft).Column))
cl = rng.Columns.Count
End With
With Worksheets("sheet2")
.Range("b1").Value = "項目"
For g0 = 1 To rng.Rows.Count
With .Range(.Cells((g0 - 1) * cl + 2, 1), .Cells(g0 * cl + 1, 1))
.Value = rng.Rows(g0).Cells(0).Value
.Offset(0, 1).Value = Application.Transpose(rng.Rows(g0))
End With
Next
End With
End Sub
testを実行して試してみてください。
尚、最初は、新規ブックにてサンプルデータを作成して確認することから
はじめて下さい。
|
|
ichinose
- 07/8/17(金) 16:25 -
