Dim lastRow As Long Dim i As Long Dim arr() As String lastRow = Cells(Rows.Count, "B").End(xlUp).Row For i = 1 To lastRow arr = Split(Cells(i, "B").Value, "-") If UBound(arr) >= 1 Then Cells(i, "B").Value = arr(1) Else Cells(i, "B").Value = "" End If Next i 修改B列中的某一行数据没有"-"符号，那么就将其跳過

你可以在循环中加入一个判断语句，检查字符串中是否包含 "-" 符号。如果不包含，就跳过当前行的处理。

以下是修改后的代码：

Dim lastRow As Long
Dim i As Long
Dim arr() As String

lastRow = Cells(Rows.Count, "B").End(xlUp).Row

For i = 1 To lastRow
    ' 检查字符串中是否包含 "-" 符号
    If InStr(Cells(i, "B").Value, "-") > 0 Then
        arr = Split(Cells(i, "B").Value, "-")
        If UBound(arr) >= 1 Then
            Cells(i, "B").Value = arr(1)
        Else
            Cells(i, "B").Value = ""
        End If
    End If
Next i

相关问题

Sub 流量源MB() Dim sPath As String Dim fso As Object, objmainFolder As Object, objFile As Object Dim n%, t% Dim arr As Variant Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFolderPicker) .Show If .SelectedItems.Count = 0 Then MsgBox "您没有选择相应路径！", vbInformation + vbOKOnly, "警告" Exit Sub Else sPath = .SelectedItems(1) End If End With Set fso = CreateObject("scripting.filesystemobject") Set objmainFolder = fso.getfolder(sPath) On Error Resume Next tms = Timer For Each objFile In objmainFolder.Files If LCase(Right(objFile.Name, 3)) = "xls" Then With GetObject(objFile.Path) With .Sheets(1) intlastrow = .[a6].CurrentRegion.Rows.Count .Range("ag6:ag1" & intlastrow) = Mid(objFile.Name, 18, 10) arr = .Range("a6:ag1" & intlastrow) End With .Close False End With With Sheets("流量源-MB") .Cells(.Rows.Count, 3).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr End With End If n = n + 1 Next objFile t = t + 1 Set objFolder = Nothing Set fso = Nothing MsgBox "您刚刚汇总了" & t & "个文件夹，总计" & n & "个文件！" & "总耗时" & Int((Timer - tms) / 60) & "分" & ((Timer - tms) Mod 60) & "秒", vbOKOnly, "温馨提示" End Sub

这段代码是一个 Excel VBA 宏，它的作用是将指定文件夹中的多个 Excel 文件中的数据汇总到名为 "流量源-MB" 的工作表中。下面是代码的具体解释：

1. 定义了一些变量，包括文件夹路径（sPath）、文件系统对象（fso）、主文件夹对象（objmainFolder）、文件对象（objFile）以及计数变量（n和t）。
2. 关闭屏幕更新，以提高代码执行效率。
3. 弹出文件夹选择对话框，并获取用户选择的文件夹路径。
4. 创建文件系统对象和主文件夹对象，并将其设置为指定路径的文件夹。
5. 开始遍历主文件夹中的每个文件。
6. 如果文件扩展名为 "xls"，则打开该文件。
7. 在打开的文件中获取第一个工作表的最后一行行号，并将该行号存储在 intlastrow 变量中。
8. 将 objFile 的名称的第 18 个字符开始的 10 个字符复制到打开的工作表的 "AG6:AG1" & intlastrow 的范围内。
9. 将打开工作表的 "A6:AG1" & intlastrow 范围内的数据复制到名为 "流量源-MB" 的工作表中。
10. 更新计数变量 n 和 t。
11. 清空一些对象变量。
12. 弹出消息框，显示汇总的文件夹数、文件数以及耗时。

请注意，这只是代码的解释，没有提供完整的上下文。如果你对代码中的某一部分有具体的问题，请提供更多信息，我将尽力帮助你。

VBA把B列按照-拆分，只保留第二列數據

你可以使用VBA中的Split函数将B列的内容按照"-"进行拆分，然后只保留第二个元素即可。

下面是一个示例VBA代码：

Sub SplitColumnB()
    Dim lastRow As Long
    Dim i As Long
    Dim arr() As String
    
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
    For i = 1 To lastRow
        arr = Split(Cells(i, "B").Value, "-")
        If UBound(arr) >= 1 Then
            Cells(i, "B").Value = arr(1)
        Else
            Cells(i, "B").Value = ""
        End If
    Next i
End Sub

这个代码会遍历B列中的每一行数据，将其按照"-"进行拆分，并将第二个元素保留下来，写回到原来的单元格中。如果B列中的某一行数据没有"-"符号，那么就将其清空。你可以将这个代码复制到VBA编辑器中运行，以实现你的需求。