VBA技术问询：点击按钮后根据其他列值编辑指定列单元格

完整可复用代码示例 #

假设你的表格结构为：Type列在B列，需提取子串的两列为C、D列，高亮列（以表头有填充色为例）为目标列，以下代码可直接根据实际表格调整使用：

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim highlightCol As Integer
    Dim typeCol As Integer, sourceCol1 As Integer, sourceCol2 As Integer
    Dim subStr1 As String, subStr2 As String
    Dim targetValue As String
    
    ' 指定工作表，按需修改
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 定义各列位置，根据你的表格实际调整
    typeCol = 2          ' Type列对应B列
    sourceCol1 = 3       ' 第一个子串来源列对应C列
    sourceCol2 = 4       ' 第二个子串来源列对应D列
    
    ' 定位高亮列（这里以表头单元格有填充色为判断依据，可替换为选中列等规则）
    For highlightCol = 1 To ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
        If ws.Cells(1, highlightCol).Interior.ColorIndex <> xlColorIndexNone Then
            Exit For
        End If
    Next
    
    ' 获取数据最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, typeCol).End(xlUp).Row
    
    ' 遍历处理每行数据
    For i = 2 To lastRow ' 假设第一行为表头
        ' 判断当前行Type列是否为"Test Point"
        If ws.Cells(i, typeCol).Value = "Test Point" Then
            ' 提取子串，以下为示例规则，按需修改
            subStr1 = Left(ws.Cells(i, sourceCol1).Value, 3) ' 取C列前3位
            subStr2 = Mid(ws.Cells(i, sourceCol2).Value, 2) ' 取D列从第2位开始的所有字符
            
            ' 拼接目标值
            targetValue = subStr1 & "_" & subStr2
            
            ' 赋值到高亮列对应单元格
            ws.Cells(i, highlightCol).Value = targetValue
        End If
    Next i
    
    MsgBox "处理完成！"
End Sub

关键环节说明 #

• 高亮列识别：代码通过表头填充色定位高亮列，若你的高亮规则是选中列，可直接替换为highlightCol = ws.Selection.Column。
• 子串提取：
  • 取左侧字符：Left(单元格值, 截取长度)
  • 取中间字符：Mid(单元格值, 起始位置, [截取长度])，省略长度则取到末尾
  • 取右侧字符：Right(单元格值, 截取长度)
  • 按分隔符提取：比如按-分割取第二部分，用subStr1 = Split(ws.Cells(i, sourceCol1).Value, "-")(1)
• 赋值操作：通过ws.Cells(i, highlightCol).Value = targetValue直接将拼接值写入目标单元格，确保行列号对应即可。

自定义子串规则示例 #

如果需要从C列提取第一个-前的内容，从D列提取最后一个_后的内容，修改子串提取部分即可：

' 提取C列第一个"-"前的内容
If InStr(ws.Cells(i, sourceCol1).Value, "-") > 0 Then
    subStr1 = Left(ws.Cells(i, sourceCol1).Value, InStr(ws.Cells(i, sourceCol1).Value, "-") - 1)
Else
    subStr1 = ws.Cells(i, sourceCol1).Value ' 无分隔符时取完整内容
End If

' 提取D列最后一个"_"后的内容
If InStrRev(ws.Cells(i, sourceCol2).Value, "_") > 0 Then
    subStr2 = Mid(ws.Cells(i, sourceCol2).Value, InStrRev(ws.Cells(i, sourceCol2).Value, "_") + 1)
Else
    subStr2 = ws.Cells(i, sourceCol2).Value
End If

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