投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
商品ごと、年ごとの販売額合計をピボットテーブルのように出力する（その２－１）

伊藤博文さんの投稿

(投稿ID: 3905)

お世話になっております。
右の表を年と商品を書くマクロを一気にすることができないかなと思ってトライしてみましたが、うまくいかなかったです。
Sub rensyu1()
Range("B1").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A2:F231")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("E1").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A2:F231")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With


Dim tate
Dim hida
Dim yoko
Dim syohin
Dim toshi
　ここでタテ、ヨコの変数を０としても、
　上手くいかなかったです。
For hida = 2 To 231
If Range("E" & hida).Value <> syohin Then
Range("H3").Offset(tate, 0).Value = Range("E" & hida).Value
syohin = Range("E" & hida).Value
tate = tate + 1

ElseIf Range("B" & hida).Value <> toshi Then
Range("I2").Offset(0, yoko).Value = Range("B" & hida).Value & "年"
toshi = Range("B" & hida).Value
yoko = yoko + 1
End If

Next
NarabeID
End Sub
ご指導宜しくお願いします。
2018/05/18 07:40