这个简单的数据转换帮忙看看

Sylvanas0928

ykcbf1100

不上个附件吗？你明明表已经有了。
不难。

杨建营

1. Sub test()
   
2. Dim i&, j&, k&, m&
   
3. Dim arr, brr
   
4. Application.ScreenUpdating = False
   
5. arr = [a1].CurrentRegion
   
6. ReDim brr(1 To 10000, 1 To 1)
   
7. For i = 2 To UBound(arr)
   
8.     For j = 2 To UBound(arr, 2)
   
9.         If Val(arr(i, j)) > 0 Then
   
10.             For k = 1 To Val(arr(i, j))
    
11.                 m = m + 1
    
12.                 brr(m, 1) = arr(i, 1) & arr(1, j)
    
13.             Next
    
14.         End If
    
15.     Next
    
16. Next
    
17. [g2].Resize(m) = brr
    
18. Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

没有文件，仅供参考。

杨建营

代码审核中，上传个图片。

飞天篮球猪

供参考

Sylvanas0928

大佬比我写的简介好多
Sub test()
    Dim ws As Worksheet
    Dim dataRange As Range, outputRange As Range
    Dim i As Long, j As Long
    Dim rowCount As Long, colCount As Long
    Dim repeatTimes As Long
    Dim value As Variant
   
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为您实际的工作表名称
   
    ' 获取原始数据范围
    Set dataRange = ws.Range("H6").CurrentRegion
   
    ' 初始化 O 列的范围
    Set outputRange = ws.Range("O2")
   
    ' 获取原始的行数和列数
    rowCount = dataRange.Rows.count
    colCount = dataRange.Columns.count
   
    ' 遍历原始数据，生成数据到 O 列
    For j = 2 To rowCount
        For i = 2 To colCount
            ' 获取重复值
            repeatTimes = dataRange.Cells(i, j).value
            ' 获取输出值
            value = dataRange.Cells(i, 1).value & dataRange.Cells(1, j).value
            If repeatTimes >= 1 Then
                Do Until repeatTimes = 0
                    outputRange = value
                    Set outputRange = outputRange.Offset(1, 0)
                    repeatTimes = repeatTimes - 1
                Loop
            End If
        Next i
    Next j
   
    MsgBox "数据已生成到 O 列。"
End Sub

x-xx-xx

saghj

手痒

cnmlgb9998

1. let
   
2.   源 = Excel.CurrentWorkbook(){[Name = "表2"]}[Content],
   
3.   更改的类型 = Table.TransformColumnTypes(
   
4.     源,
   
5.     {{"名", type text}, {"А", Int64.Type}, {"B", Int64.Type}, {"C", Int64.Type}}
   
6.   ),
   
7.   逆透视的其他列 = Table.UnpivotOtherColumns(更改的类型, {"名"}, "属性", "值"),
   
8.   已添加自定义 = Table.AddColumn(
   
9.     逆透视的其他列,
   
10.     "自定义",
    
11.     each List.Select(Text.Split(Text.Repeat([名] & [属性] & "-", [值]), "-"), each _ <> "")
    
12.   ),
    
13.   删除的其他列 = Table.SelectColumns(已添加自定义, {"自定义"}),
    
14.   自定义1 = 删除的其他列,
    
15.   #"展开的“自定义”" = Table.ExpandListColumn(自定义1, "自定义"),
    
16.   筛选的行 = Table.SelectRows(#"展开的“自定义”", each ([自定义] <> null))
    
17. in
    
18.   筛选的行

复制代码

ykcbf1100

Sylvanas0928 发表于 2024-3-4 16:20
大佬比我写的简介好多
Sub test()
    Dim ws As Worksheet

这个不是你写的吧，应该是AI写的。