作业帮excLe中,如何在同一列二个相同字符之间空格填上序列号
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/13 05:33:30
excLe中,如何在同一列二个相同字符之间空格填上序列号
同一列二个相同字符之间空格填上序列号
象图中左图1：A2的XXX到A7的XXX之间空4格,如何用公式将1,2,3,4填补,
同样A7的XXX到A18的XXX之间空10个格,如何用公式将1,2,--.9.10填补,
就是说,如何把图1变成图2的形式?
同一列二个相同字符之间空格填上序列号
象图中左图1：A2的XXX到A7的XXX之间空4格,如何用公式将1,2,3,4填补,
同样A7的XXX到A18的XXX之间空10个格,如何用公式将1,2,--.9.10填补,
就是说,如何把图1变成图2的形式?
此问题宜用VBA来解,例如：
Sub try()
Dim rag As Range
For Each rag In UsedRange
If rag.Value = "" Then
If rag.Row = 1 Then
rag.Value = 1
Else
If IsNumeric(rag.Offset(-1,0).Value) Then
rag.Value = rag.Offset(-1,0).Value + 1
Else
rag.Value = 1
End If
End If
End If
Next
End Sub
再问： VBA这个我一点也不懂，有没有简单易行的函数？
再答： 你不必了解很多，只要会操作即可。
按Alt+F11
把给你的程序Copy进去
按Alt+F4回到工作表
按Alt+F8
选Sheet1.try
执行
再问： 使用这个程序，还破坏了一个文档资料，算了，搞也搞不清楚，你也比较辛苦，就采纳算了。
Sub try()
Dim rag As Range
For Each rag In UsedRange
If rag.Value = "" Then
If rag.Row = 1 Then
rag.Value = 1
Else
If IsNumeric(rag.Offset(-1,0).Value) Then
rag.Value = rag.Offset(-1,0).Value + 1
Else
rag.Value = 1
End If
End If
End If
Next
End Sub
再问： VBA这个我一点也不懂，有没有简单易行的函数？
再答： 你不必了解很多，只要会操作即可。
按Alt+F11
把给你的程序Copy进去
按Alt+F4回到工作表
按Alt+F8
选Sheet1.try
执行
再问： 使用这个程序，还破坏了一个文档资料，算了，搞也搞不清楚，你也比较辛苦，就采纳算了。
excLe中,如何在同一列二个相同字符之间空格填上序列号
excle 中如何统计左边列数中所有字符、数字的个数
excel中,一列中有相同的一个数字,其余为空格,怎么填上序号?
在vb编程中如何进行字符和ASCII码之间的转换
在excel中如何统计一列所有相同字符（词、标点）的个数
EXCEL中查找1表a列相同字符,b列不=空格,在2表中a列显示
EXCEl中如何在B列用公式填出A列缺失的数字,数字范围01-15,数字之间是空格
如何在EXCLE的公式中输入绝对值符号?
如何在EXCLE中进行英语单词按首字母排序?
在excle中如何求得一列的数字和
在EXCLE操作中,如何精确小数点的位数?
在每一个空格中填一个单词,使两个句子意思相同或相近.