帮我写个vba代码，在sheet1表里D列所有内容后面加个 /

当然可以！以下是一个简单的VBA代码，可以在Sheet1表格的D列所有内容后面加上斜杠 "/":

Sub AddSlash()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    
    For i = 1 To lastRow
        ws.Cells(i, "D").Value = ws.Cells(i, "D").Value & "/"
    Next i
    
    MsgBox "斜杠添加完成！"
End Sub

请按照以下步骤执行该代码：

1. 打开你的Excel文件。
2. 按下 `Alt + F11` 打开Visual Basic编辑器。
3. 在左侧的项目资源管理器窗口中，找到你的工作簿，展开它并双击 `Sheet1`。
4. 在右侧的代码窗口中，粘贴上述代码。
5. 按下 `Ctrl + S` 保存并关闭VBA编辑器。
6. 按下 `Alt + F8` 打开宏对话框。
7. 选择 `AddSlash` 宏，并点击“运行”。

这样，你的Sheet1表格的D列所有内容后面都会加上斜杠 "/"

希望对你有所帮助！如果有任何其他问题，请随时提问。