求解，根据数据表信息返回另一格式，批量数据操作

fuchengmeiruhua

求解，根据数据表信息返回另一格式，批量数据操作，数据比较多，求帮忙。谢谢

fuchengmeiruhua

Sub 转换数据()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Set wsSource = ThisWorkbook.Sheets("Sheet1") ' 源数据的工作表
    Set wsTarget = ThisWorkbook.Sheets("Sheet2") ' 目标数据的工作表
   
    Dim lastRow As Long, targetRow As Long
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    targetRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1
   
    Dim i As Long, j As Long
    Dim projectName As String, name As String
    Dim monthYear As String
    Dim monthValue As Double
   
    ' 遍历数据
    For i = 2 To lastRow ' 假设数据从第二行开始
        projectName = wsSource.Cells(i, 1).Value
        name = wsSource.Cells(i, 2).Value
        
        ' 遍历月份列
        For j = 3 To 14 ' 假设月份数据从第3列到第14列
            monthYear = wsSource.Cells(1, j).Value
            monthValue = wsSource.Cells(i, j).Value
            
            ' 将数据插入新的行
            wsTarget.Cells(targetRow, "A").Value = projectName
            wsTarget.Cells(targetRow, "B").Value = name
            wsTarget.Cells(targetRow, "C").Value = monthYear
            wsTarget.Cells(targetRow, "D").Value = monthValue
            targetRow = targetRow + 1
        Next j
    Next i
End Sub

LIUZHU

LIUZHU

附件，WPS测试