如何在excel中的所有行内容中添加斜杠？

有一列（img）与上面类似，现在我想在

UploadPic

（/UploadPic）之前添加一个斜杠，并用批处理来完成。如何操作？

这个简单的小宏将对A列中使用的每个单元格执行此操作：

image
UploadPic/2012-02-08/132168689584.jpg
UploadPic/2012-02-08/132168689539.jpg
UploadPic/2012-02-08/132168689579.jpg
UploadPic/2012-02-08/132168689580.jpg
UploadPic/2012-02-08/132168689659.jpg
UploadPic/2012-02-08/132168689698.jpg
UploadPic/2012-02-08/132168689611.jpg
UploadPic/2012-02-08/132168689621.jpg
UploadPic/2012-02-08/132168689610.jpg
UploadPic/2012-02-08/132168689658.jpg

如何/在何处安装宏：

打开你的工作簿

进入VB编辑器（按Alt+F11）

插入新模块（插入>模块）

复制并粘贴到代码中（如上所示）

退出VBA（按Alt+Q）

另存为启用宏的工作簿

---

宏已安装并可以使用。按Alt-F8键并从宏列表中选择它。

这个简单的小宏将对A列中使用的每个单元格执行此操作：

image
UploadPic/2012-02-08/132168689584.jpg
UploadPic/2012-02-08/132168689539.jpg
UploadPic/2012-02-08/132168689579.jpg
UploadPic/2012-02-08/132168689580.jpg
UploadPic/2012-02-08/132168689659.jpg
UploadPic/2012-02-08/132168689698.jpg
UploadPic/2012-02-08/132168689611.jpg
UploadPic/2012-02-08/132168689621.jpg
UploadPic/2012-02-08/132168689610.jpg
UploadPic/2012-02-08/132168689658.jpg

Sub AddSlash()
Dim MyRNG As Range, cell As Range

Set MyRNG = Range("A:A").SpecialCells(xlConstants)

    For Each cell In MyRNG
        cell.Value = "/" & cell.Value
    Next cell

End Sub

如何/在何处安装宏：

打开你的工作簿

进入VB编辑器（按Alt+F11）

插入新模块（插入>模块）

复制并粘贴到代码中（如上所示）

退出VBA（按Alt+Q）

另存为启用宏的工作簿

宏已安装并可以使用。按Alt-F8键并从宏列表中选择它

Sub AddSlash()
Dim MyRNG As Range, cell As Range

Set MyRNG = Range("A:A").SpecialCells(xlConstants)

    For Each cell In MyRNG
        cell.Value = "/" & cell.Value
    Next cell

End Sub

替换选项卡

查找内容：“上传图片” 替换为：“\UploadPic”

单击-全部替换

我喜欢在“查找内容”中添加一点额外的文本来确定

替换选项卡

查找内容：“上传图片” 替换为：“\UploadPic”

单击-全部替换

---

我喜欢在Find What（查找内容）中添加一点额外的文本来确定。

“/”+mystring

。需要库迪！库迪<代码>对不起，我不知道你的答案是什么意思对不起，我是个新手，我不知道在excel

“//”+mystring

中在哪里编码。需要库迪！库迪<代码>很抱歉，我不知道你的答案是什么意思很抱歉，我是个新手，我不知道在哪里用excel编码