发布网友 发布时间:2022-04-23 09:52
共2个回答
热心网友 时间:2023-10-06 22:25
看上去没有什么规律,手动处理吧,先用excel自带功能 *第二列,然后在转置成竖列,最后在剪切粘贴,在把人称拖动拷贝和地址名称同行数追问行数少可以这样做,但是好几百行和列,用这种方法太耗时了,网上搜不到相关的解决方案。
追答那也要*之后写公式处理对齐。 反倒是如果用VBA写程序处理会简单一些
运行这个脚本试试
Private Sub customized()
Dim i As Integer, j As Integer, x As Integer
Dim arr As Variant
For i = 1 To Range("A65536").End(xlUp).Row
arr = Split(Cells(i, 2).Value, ",")
For j = 0 To UBound(arr)
Cells(i + x + j, 5) = arr(j)
Cells(i + x + j, 4) = Cells(i, 1)
Next
x = x + UBound(arr)
Next
End Sub
热心网友 时间:2023-10-06 22:25
需要文件才好做公式,把问题作为内容(邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件,以免误删),excel样表文件(把现状和目标效果表示出来)作为附件发来看下 yqch134@163.com