根据关键数值，生成对应数值的行，生成新的表格数据

包导 · 发表于 2024-12-17 17:16

本帖最后由包导于 2024-12-17 17:19 编辑

要求：怎么把A-C列数据跟据C列的数值，转换成F-H格式。

麻烦给位给一下函数公式。谢谢！

waternew · 发表于 2024-12-17 17:33

最好上传一下附件

包导 · 发表于 2024-12-17 17:37

本帖最后由包导于 2024-12-17 20:38 编辑

求助高手，小白一个，或者能不能用VB的方式实现。
附件已经更新。

地址生成.zip (28.35 KB, 下载次数: 5)

quqiyuan · 发表于 2024-12-17 18:01

怎么附件跟你说的不一样。。。

quqiyuan · 发表于 2024-12-17 19:12

按照你1楼的说明做了个vba效果，仅供参考。。。

quqiyuan · 发表于 2024-12-17 19:13

代码如下。。。
Sub test()
Dim wb As Workbook, sht As Worksheet
Set wb = ThisWorkbook
Set sht = wb.Sheets("sheet1")
arr = sht.[a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim crr(1 To 10000, 1 To 3)
n = 1
crr(1, 1) = "地址": crr(1, 2) = "覆盖设备": crr(1, 3) = "户号"
For i = 2 To UBound(arr)
      s = arr(i, 1)
      If Not d.exists(s) Then Set d(s) = CreateObject("scripting.dictionary")
      d(s)(i) = Application.Index(arr, i)
Next
For Each k In d.Keys
      m = 0
      For Each Key In d(k).Keys
         brr = d(k)(Key)
         Cnt = brr(3)
         With CreateObject("VBScript.RegExp")
            .Pattern = "\d+"
            Set matches = .Execute(k)
         End With
         For i = 1 To Cnt
            n = n + 1
            m = m + 1
            crr(n, 1) = k
            crr(n, 2) = brr(2)
            crr(n, 3) = matches(0) & Format(m, "00") & "号"
         Next
      Next
Next
[f1].Resize(n, 3) = crr
Beep
Set d = Nothing
End Sub

Excel_muke · 发表于 2024-12-17 19:19

PowerQuery实现的：

let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
更改的类型 = Table.TransformColumnTypes(源,{{"地址", type text}, {"分光器名称", type text}, {"分光比", Int64.Type}}),
已添加自定义 = Table.AddColumn(更改的类型, "重复序列", each {1..[分光比]}),
#"展开的“重复次数”" = Table.ExpandListColumn(已添加自定义, "重复序列"),
已添加自定义1 = Table.AddColumn(#"展开的“重复次数”", "重复次数", each Number.ToText([重复序列] + 100 * Number.From(Text.Select([地址], {"0".."9"}))) & "号",type text),
删除的列 = Table.RemoveColumns(已添加自定义1,{"分光比", "重复序列"})
in
删除的列

复制代码

你是那块小饼干 · 发表于 2024-12-17 19:42

上传附件，你上传的跟图片不一样

飞天篮球猪 · 发表于 2024-12-17 20:03

插件解法...仅供参考

包导 · 发表于 2024-12-17 20:14

本帖最后由包导于 2024-12-17 20:39 编辑

你是那块小饼干发表于 2024-12-17 19:42
上传附件，你上传的跟图片不一样

不好意思，上传错了

地址生成.zip (28.35 KB, 下载次数: 6)

		自动登录	找回密码
密码			免费注册

[求助] 根据关键数值，生成对应数值的行，生成新的表格数据

评分

评分

评分