[已解决]修改单元格内部分数字怎么用VBA实现

喵了个咪

例如，A1中的内容是ABC000D，我想修改成ABC030D,ABC060D,ABC090D,ABC120D并保存成新的多个excel。
请大神们帮帮忙吧，跪谢~

上述问题已解决，但是还有一点更新的疑问，请高手们帮帮忙，谢谢~~

还是上述问题，但是我想把文件名存成seainp.000，seainp.030,等等，应该怎么修改呢，文件的本质依然是txt，但是命名的时候不希望它是.txt，就是想强行改后缀，不知道能不能实现呢？实在不行的话，可以文件名叫seainp.000.txt。谢谢您了~

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2016-7-22 16:11

求助最起码应该上传个附件嘛

跳转到最佳答案楼层

喵了个咪

没有人知道么，就是替换掉部分字符，再放回原单元格内，然后另存为新的excel~~有一些想法，比如mid函数，replace函数，但是好像都不能实现把修改的再放回原单元格。这是我尝试的一小段，A1里输的是abc000，但是关键的句子出错了
Sub try()
Dim p As String
p = "030"
Mid(a1, 4, 3) = Replace(a1, Mid(a1, 4, 3), p)
End Sub

这儿有肥猫

求助最起码应该上传个附件嘛

喵了个咪

这儿有肥猫 发表于 2016-7-22 16:11
求助最起码应该上传个附件嘛

太感谢了，因为只是随便举了个例子，所以就没传，谢谢大神~~想要修改的文件如果还有疑问，希望还能请教您~~

喵了个咪

这儿有肥猫 发表于 2016-7-22 16:11
求助最起码应该上传个附件嘛

您好，又来向您请教，还是上述问题，但是我想把文件名存成seainp.000，seainp.030,等等，应该怎么修改呢，文件的本质依然是txt，但是命名的时候不希望它是.txt，就是想强行改后缀，不知道能不能实现呢？实在不行的话，可以文件名叫seainp.000.txt。谢谢您了~

这儿有肥猫

喵了个咪 发表于 2016-7-25 11:11
您好，又来向您请教，还是上述问题，但是我想把文件名存成seainp.000，seainp.030,等等，应该怎么修改呢， ...

你的意思是隐藏后缀？如果用的是win7，打开任意一个文件夹，点组织-查看-隐藏已知文件类型的扩展名。文件的扩展名一定要保留的，保存为txt文件的话，就是改一句，ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & [a1] & ".txt", FileFormat:=xlCSV

喵了个咪

这儿有肥猫 发表于 2016-7-25 13:26
你的意思是隐藏后缀？如果用的是win7，打开任意一个文件夹，点组织-查看-隐藏已知文件类型的扩展名。文件 ...

不能算是隐藏后缀，我有一个软件，它的命名要求是前面是seainp，后面是.真正的文件名，所以就这个例子而言我想把保存的名字统一改成seainp.[a1]，强行改后缀的感觉。这是我写的，但是有问题

Sub Macro1()
Dim i, d, n
n = InputBox("请输入入射角度的公差n")
d = InputBox("请输入波高的公差d")
dim s as string
s="seainp"
For i = 0 To 6
[a34].Replace Mid([a34], 39, 5), Application.Text(n * i, "0.00")
[a36].Replace Mid([a36], 27, 5), Application.Text(n * i, "00.00")
[a38].Replace Mid([a38], 26, 6), Application.Text(n * i, "00.00")

      ActiveWorkbook.SaveAs Filename:= _
        "E:\系统\Desktop\实习\VB\"  & s & ".Mid([a34], 39, 3)", FileFormat:=xlText, CreateBackup:= _
        False
Next

End Sub

喵了个咪

这儿有肥猫 发表于 2016-7-25 13:26
你的意思是隐藏后缀？如果用的是win7，打开任意一个文件夹，点组织-查看-隐藏已知文件类型的扩展名。文 ...

唔…我好像知道怎么弄了。但是，还想问一下你

[a34].Replace Mid([a34], 39, 5), Application.Text(n * i, "0.00")

能帮我解释一下这个语句的作用么，（用n*i，替换a34里面39位字符及后5位的字符？如果n*i占用不了5位字符怎么办呢？后面的就吞掉了么？）特别是这个语句里面“”里面的东西作用是什么？

我发现比如Mid([a34], 39, 5)如果是18.00，但a34单元格内后面还有个18，也会被替换掉

这儿有肥猫

这句的意思是在[a34]中查找Mid([a34], 39, 5), 用Application.Text(n * i, "0.00")替换掉
text里""中的0.00就是限定一个格式，超过两位小数的话四舍五入为两位小数，其实这些你可以写个简单的VBA带入到excel中试一下，多试几次就知道了

喵了个咪

这儿有肥猫 发表于 2016-7-25 16:53
这句的意思是在[a34]中查找Mid([a34], 39, 5), 用Application.Text(n * i, "0.00")替换掉
text里""中的0.0 ...

但是，其实它是替换掉了a34中所有与Mid([a34], 39, 5)处相同的字符，对不对。如果Mid([a34], 39, 5)=哈哈，a34中还有其他位置有哈哈，其他位置的哈哈也会被替换掉吧，能避开这个么？