求助帖，怎么把左表变成右表

Sub 转列()
Dim row As Integer
Dim rng As Range
Dim i As Integer
i = 1
For row = 2 To 3
For col = 2 To 13
Cells(i, 16) = Cells(row, 1).Value '地区
Cells(i, 17) = Cells(1, col).Value '年份
Cells(i, 18) = Cells(row, col).Value '值
i = i + 1
Next col
Next row
End Sub

动图传了两次都没了，用PQ也是一种不错的选择
选中数据，然后，数据--从表格，进入PQ以后，选择第一列，然后，转换--逆透视其他列，标题可以再修改一下，然后，主页，上载至，导出到当前表或新表。

这是二维表，可以全选后创建查询在power query用逆透视

复制左边的，然后空白处右键，选择性粘贴，转置。

加载到power query直接对年份逆透视就可以了