帮我写个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列所有内容后面都会加上斜杠 "/"

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

相关问题

如何用代码实现VBA使用loop嵌套实现从表里找东西放到另一个表里

可以使用以下代码实现：

Sub CopyData()
    Dim srcSheet As Worksheet, destSheet As Worksheet
    Dim srcLastRow As Long, destLastRow As Long
    Dim srcRow As Long, destRow As Long

    ' 设置源表格与目标表格
    Set srcSheet = Worksheets("Sheet1")
    Set destSheet = Worksheets("Sheet2")

    ' 获取源表格最后一行的行号
    srcLastRow = srcSheet.Cells(Rows.Count, "A").End(xlUp).Row

    ' 初始化目标表格行号
    destRow = 1

    ' 循环遍历源表格
    For srcRow = 1 To srcLastRow
        ' 判断是否需要复制该行数据
        If srcSheet.Cells(srcRow, "B").Value = "需要找的东西" Then
            ' 将该行数据复制到目标表格中
            destLastRow = destSheet.Cells(Rows.Count, "A").End(xlUp).Row
            destSheet.Range("A" & destLastRow + 1 & ":D" & destLastRow + 1).Value = srcSheet.Range("A" & srcRow & ":D" & srcRow).Value
            destRow = destRow + 1
        End If
    Next srcRow
End Sub

这段代码会从名为 "Sheet1" 的表格中寻找包含需求信息的行，并将其复制到名为 "Sheet2" 的表格中。需要修改代码中的目标单元格范围、需求信息关键字和数据表格名等信息。

将4个sheet的数据汇总到一张表里，并按照每个sheet第一列排序

可以使用Excel的VBA宏来实现这个功能。以下是一个简单的VBA宏示例：

1. 打开Excel文件，按下ALT+F11，打开VBA窗口。
2. 在VBA窗口中，选择“插入” -> “模块”，创建一个新的模块。
3. 将下面的代码复制粘贴到新建的模块中：

Sub CombineData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long
    Dim k As Long
    Dim arrData() As Variant
    Dim arrSort() As Variant
    
    '设置新表格
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Combined Data"
    Set ws = Sheets("Combined Data")
    
    '将表格数据复制到数组中
    For k = 1 To 4 '假设要汇总的表格为Sheet1、Sheet2、Sheet3和Sheet4
        Set wsCopy = Sheets("Sheet" & k)
        lastRow = wsCopy.Cells(wsCopy.Rows.Count, 1).End(xlUp).Row '获取最后一行
        arrData = wsCopy.Range("A1:B" & lastRow).Value '将数据复制到数组中
        
        '将数组数据复制到新表格中
        If k = 1 Then
            ws.Range("A1:B" & lastRow).Value = arrData
        Else
            ws.Range("A" & (lastRow * (k - 1)) + 1 & ":B" & lastRow * k).Value = arrData
        End If
    Next k
    
    '按照第一列进行排序
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    arrSort = ws.Range("A1:B" & lastRow).Value
    For i = 2 To lastRow
        For j = 1 To lastRow - 1
            If arrSort(j, 1) > arrSort(j + 1, 1) Then
                temp = arrSort(j, 1)
                arrSort(j, 1) = arrSort(j + 1, 1)
                arrSort(j + 1, 1) = temp
                temp = arrSort(j, 2)
                arrSort(j, 2) = arrSort(j + 1, 2)
                arrSort(j + 1, 2) = temp
            End If
        Next j
    Next i
    
    '将排序后的数据复制回表格中
    ws.Range("A1:B" & lastRow).Value = arrSort
End Sub

4. 修改代码中的“Sheet1”、“Sheet2”、“Sheet3”和“Sheet4”为需要汇总的表格名称。
5. 运行宏，它将会创建一个名为“Combined Data”的新表格，其中包含所有汇总的数据，并按照第一列进行排序。