在循环中使用 Excel VBA 转置动态值答案

【问题标题】：Transpose dynamic values using Excel VBA in a loop在循环中使用 Excel VBA 转置动态值
【发布时间】：2017-03-30 23:15:04
【问题描述】：

我是 excel VBA 的新手，我需要帮助来弄清楚如何将值从一张表转置到另一张表。

下面是我的数据之前的图像以及我需要如何转置数据：

转置前

特征计数 |类 |CHAR 1 |CHAR 2 |CHAR 3强> |CHAR 4 |CHAR 5 |CHAR 6 |
3 |吸收器 |类型 |尺寸 |材料
5 |适配器 |类型 |SIZE_A |CONNECTION_A |SIZE_B |CONNECTION_B |材料

转置后

我有超过 1000 行数据需要转置。

对不起，关于桌子，这是我能做的最好的事情了。

【问题讨论】：

标签： vba excel loops transpose

【解决方案1】：

我认为此功能将根据您问题中的示例数据起作用。这假设了一些事情（“计数”是原始数据中的第一列，没有空白的“字符”字段等），所以如果需要，我可以帮助更具体地调整它以适应您的确切情况。如果所有内容都在一个工作簿中，并且您不需要/不想将工作簿和工作表对象设置为变量，我们也可以消除几行。

Public Sub Transpose()

Dim Row1 As Long
Dim Column1 As Long
Dim Row2 As Long
Dim CurrentWB As Workbook
Dim CurrentWS As Worksheet
Dim TransposeWB As Workbook
Dim TransposeWS As Worksheet
Dim CurrentClass As String

'Set workbook(s) and worksheets as variables just to make it easier to reference them
'Replace necessary workbooks and worksheets with what holds your actual data
Set CurrentWB = ActiveWorkbook
Set CurrentWS = CurrentWB.Worksheets("Sheet1")
Set TransposeWB = ActiveWorkbook
Set TransposeWS = CurrentWB.Worksheets("Sheet2")

'Set the starting row for the worksheet in which the transposed data will go
Row2 = 1

'Adjust as needed for the row in which your raw data starts and ends
For Row1 = 1 To 1000

    'Store the current class
    CurrentClass = CurrentWS.Cells(Row1, 2)

    'Assuming first "Char" column is 3
    Column1 = 3

    While CurrentWS.Cells(Row1, Column1) <> ""

        TransposeWS.Cells(Row2, 1) = CurrentClass
        TransposeWS.Cells(Row2, 2) = CurrentWS.Cells(Row1, Column1)

        'Move to the next "Char" column in untransposed sheet
        Column1 = Column1 + 1

        'Move to the next row in transposed sheet
        Row2 = Row2 + 1
    Wend

Next Row1

结束子

【讨论】：