excLe中,如何在同一列二个相同字符之间空格填上序列号
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/19 19:39:07
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操作中,如何精确小数点的位数?
在每一个空格中填一个单词,使两个句子意思相同或相近.