VBA实现Excel文本条件拆分：忽略无句号分隔的单元格

现有需求是将单元格中带句号的数字序列（如5.10.4.3456）拆分为4个单元格，但需跳过无句号的单个数字单元格，同时代码要能适应每周新增的数据集范围。原代码直接对固定范围执行拆分，无法实现条件判断。

原代码问题 #

原代码直接选取固定范围C2:C12085执行TextToColumns，会对所有单元格（包括无句号的单个数字）进行拆分，不符合需求：

Range("C2:C12085").Select

Dim rng As Range
Set rng = Selection
rng.TextToColumns _
    Destination:=rng(1, 1).Offset(, 14), _
    TextQualifier:=xlTextQualifierDoubleQuote, _
    DataType:=xlDelimited, _
    SemiColon:=False, _
    Comma:=False, _
    Other:=True, _
    Space:=False, _
    OtherChar:="."

修改后的解决方案 #

以下代码实现仅拆分包含句号的单元格，同时动态获取数据范围（自动适配新增内容），且避免使用Select提升效率：

Sub SplitWithCondition()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    
    ' 指定目标工作表，可根据实际修改
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 动态获取C列最后一行数据，适配每周新增内容
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 遍历C2到最后一行的单元格
    For Each cell In ws.Range("C2:C" & lastRow)
        ' 判断单元格是否包含句号，且不为空
        If InStr(cell.Value, ".") > 0 And cell.Value <> "" Then
            ' 对符合条件的单元格执行拆分，目标位置为当前单元格向右偏移14列
            cell.TextToColumns _
                Destination:=cell.Offset(, 14), _
                TextQualifier:=xlTextQualifierDoubleQuote, _
                DataType:=xlDelimited, _
                SemiColon:=False, _
                Comma:=False, _
                Other:=True, _
                Space:=False, _
                OtherChar:="."
        End If
    Next cell
End Sub

关键说明 #

• 动态范围获取：通过lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row自动获取C列最后一行数据，无需手动修改范围
• 条件判断：用InStr(cell.Value, ".") > 0检查单元格是否包含句号，仅对符合条件的单元格执行拆分
• 避免Select：直接操作工作表和单元格对象，比原代码的Select方式更高效且不易出错

内容的提问来源于stack exchange，提问作者Achilles