发布网友 发布时间:2022-05-01 15:35
共2个回答
热心网友 时间:2023-10-22 06:55
这个还是vba比较便捷。举例说明:
例如有表格如图:
第一步:编制代码如下:
Sub zdbh()
Dim AL As Integer
Dim BL As Integer
AL = 1
BL = 2
KSHH = 2
Call ZDBHp(AL, BL, KSHH)
End Sub
Sub ZDBHp(AL, BL, KSHH)
zz = KSHH
Do While Cells(zz, AL).Value <> ""
mytext = Cells(zz, AL).Text
hs = Cells(zz, AL).MergeArea.Rows.Count
zz2 = zz: zz3 = 0
Do While zz2 <= zz + hs - 1
zz3 = zz3 + 1
hs2 = Cells(zz2, BL).MergeArea.Rows.Count
Cells(zz2, BL) = mytext & "-" & zz3
zz2 = zz2 + hs2
Loop
zz = zz + hs
Loop
End Sub
第二步:运行代码,结果如图:
追问要显C列D列怎么添加?追答
再增加三句
AL = 2
BL = 3
Call ZDBHp(AL, BL, KSHH)
结果如图:
热心网友 时间:2023-10-22 06:55
这个还是vba比较便捷。举例说明:
例如有表格如图:
第一步:编制代码如下:
Sub zdbh()
Dim AL As Integer
Dim BL As Integer
AL = 1
BL = 2
KSHH = 2
Call ZDBHp(AL, BL, KSHH)
End Sub
Sub ZDBHp(AL, BL, KSHH)
zz = KSHH
Do While Cells(zz, AL).Value <> ""
mytext = Cells(zz, AL).Text
hs = Cells(zz, AL).MergeArea.Rows.Count
zz2 = zz: zz3 = 0
Do While zz2 <= zz + hs - 1
zz3 = zz3 + 1
hs2 = Cells(zz2, BL).MergeArea.Rows.Count
Cells(zz2, BL) = mytext & "-" & zz3
zz2 = zz2 + hs2
Loop
zz = zz + hs
Loop
End Sub
第二步:运行代码,结果如图:
追问要显C列D列怎么添加?追答
再增加三句
AL = 2
BL = 3
Call ZDBHp(AL, BL, KSHH)
结果如图:
热心网友 时间:2023-10-22 06:56
估计要用辅助列完成
复制C列到E列
按CTRL+G,定位,定位条件 ,选择-空白,在编辑栏输入 1,同时按CTRL+回车键
F2=LOOKUP("座",$B$2:B2)
下拉公式
选定C2:C100,(假设是这些合并单元格)
在编辑栏输入
=F2&"-"&SUMPRODUCT(($E$2:E2<>"")*($F$2:F2=F2))
同时按CTRL+回车键
热心网友 时间:2023-10-22 06:56
估计要用辅助列完成
复制C列到E列
按CTRL+G,定位,定位条件 ,选择-空白,在编辑栏输入 1,同时按CTRL+回车键
F2=LOOKUP("座",$B$2:B2)
下拉公式
选定C2:C100,(假设是这些合并单元格)
在编辑栏输入
=F2&"-"&SUMPRODUCT(($E$2:E2<>"")*($F$2:F2=F2))
同时按CTRL+回车键
热心网友 时间:2023-10-22 06:56
这个还是vba比较便捷。举例说明:
例如有表格如图:
第一步:编制代码如下:
Sub zdbh()
Dim AL As Integer
Dim BL As Integer
AL = 1
BL = 2
KSHH = 2
Call ZDBHp(AL, BL, KSHH)
End Sub
Sub ZDBHp(AL, BL, KSHH)
zz = KSHH
Do While Cells(zz, AL).Value <> ""
mytext = Cells(zz, AL).Text
hs = Cells(zz, AL).MergeArea.Rows.Count
zz2 = zz: zz3 = 0
Do While zz2 <= zz + hs - 1
zz3 = zz3 + 1
hs2 = Cells(zz2, BL).MergeArea.Rows.Count
Cells(zz2, BL) = mytext & "-" & zz3
zz2 = zz2 + hs2
Loop
zz = zz + hs
Loop
End Sub
第二步:运行代码,结果如图:
追问要显C列D列怎么添加?追答
再增加三句
AL = 2
BL = 3
Call ZDBHp(AL, BL, KSHH)
结果如图:
热心网友 时间:2023-10-22 06:56
估计要用辅助列完成
复制C列到E列
按CTRL+G,定位,定位条件 ,选择-空白,在编辑栏输入 1,同时按CTRL+回车键
F2=LOOKUP("座",$B$2:B2)
下拉公式
选定C2:C100,(假设是这些合并单元格)
在编辑栏输入
=F2&"-"&SUMPRODUCT(($E$2:E2<>"")*($F$2:F2=F2))
同时按CTRL+回车键