excel2003中可不可以在001 002 003 004之类数据前面自动加上乘号或者星号！请教高手详细解答。

发布网友

我来回答

共5个回答

热心网友

比如数据在A列，你在B1输入="*"&A1并向下填充，然后复制B列用选择性粘贴--数值 粘贴回A列，再把B列删除，或者选定这些数据---设置单元格格式----数字---自定义---类型下输入："*"@
如果是把001 002 003变为001*002*003，你可以用查找替换，把它们之间的空格复制粘贴到查找内容，在替换为输入*，点全部替换。
可以的

热心网友

我不知道你的数据是否是连续的，也就是说，你的需要处理的数据，如果正好处在一个封闭的区间，你可以用下面的代码

Sub 椭圆1_Click()
Dim i, j As Integer
With Worksheets("Sheet1")
For j = 1 To 20
For i = 1 To 20
.Cells(i, j) = "*" & .Cells(i, j)
Next i
Next j
End With
End Sub

.Cells(2, 2) 意思就是B2 单元格了，其他的，不需要解释了吧，
根据你的表区间范围，调整i,j 的范围就OK了。

如果用公式，上面的兄弟也说得很清楚了，不需要再说了

热心网友

假设数据在A1：A100中，B1中输入
=TRIM(MID(SUBSTITUTE($A1," ",REPT(" ",99)),COLUMN(A1)*99-98,99))
用自动填充柄下拉，右拉。
前面如果要星星，可以把B1公式改为
=IF(COLUMN(A:A)>LEN($A1)-LEN(SUBSTITUTE($A1," ",)),"","*")&TRIM(MID(SUBSTITUTE($A1," ",REPT(" ",99)),COLUMN(A1)*99-98,99))

热心网友

Sub join()
For Each c In ActiveSheet.UsedRange
If c.Cells(1, 1) <> "" Then c.Cells(1, 1) = "*" & c.Value
Next
End Sub

热心网友

=“*”&A1
=“×"&A1