发布网友 发布时间:2022-05-05 14:37
共3个回答
热心网友 时间:2022-06-27 15:22
1、打开表格,不过是EXCEL 表,按住ALT +F11,双击thisworkbook,右侧粘贴下面代码,按F5。
2、代码
Sub tt()
Dim i As Integer
For i = 2 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 2) <> "" Then
Dim n As Integer
For n = 0 To 10
If Cells(i + n, 3) = n + 1 Then
If Cells(i, 5) <> "" Then
Cells(i, 5) = Cells(i, 5) & "、" & Cells(i + n, 4)
End If
If Cells(i, 5) = "" Then
Cells(i, 5) = Cells(i, 4)
End If
End If
Next n
End If
Next i
End Sub
3、执行效果
机器上么装WPS,只在EXCEL测试了。
热心网友 时间:2022-06-27 15:23
需要合并的项目名称用“&”连接起来便可热心网友 时间:2022-06-27 15:23
1新建一个EXCEL表格,打开,找到右上角的工作表,选择合并工作表。