VBA技术求助：提取Raw Data工作表B列指定内容至A列

原代码存在的问题 #

• 过程定义不规范：SUB RecordType 需补充括号，正确写法为 Sub RecordType()
• 工作表引用错误：sheet("Raw Data") 应为 Sheets("Raw Data")（或Worksheets）
• 核心逻辑错误：直接给A列整列赋值Mid("B:B",10,4)是把字符串"B:B"当作处理对象，而非引用B列单元格的实际内容，无法实现需求。

修正后的代码（两种方案） #

方案1：循环单元格（适合新手理解）

Sub RecordType()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定目标工作表
    Set ws = Sheets("Raw Data")
    ' 获取B列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 遍历B列数据行，提取字符到A列对应行
    For i = 1 To lastRow
        ws.Cells(i, "A").Value = Mid(ws.Cells(i, "B").Value, 10, 4)
    Next i
End Sub

方案2：数组批量处理（效率更高，适合大数据量）

Sub RecordType()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataArr As Variant
    Dim i As Long
    
    Set ws = Sheets("Raw Data")
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    ' 将B列数据读入数组
    dataArr = ws.Range("B1:B" & lastRow).Value
    
    ' 遍历数组处理数据
    For i = 1 To UBound(dataArr)
        dataArr(i, 1) = Mid(dataArr(i, 1), 10, 4)
    Next i
    
    ' 将处理后的数据写入A列
    ws.Range("A1:A" & lastRow).Value = dataArr
End Sub

代码说明 #

• Mid(字符串, 起始位置, 提取长度)：从指定位置开始提取指定长度的字符，这里对应需求从第10位开始取4个字符。
• lastRow：获取B列最后一行有数据的行号，避免遍历整列浪费资源。
• 数组方案通过一次性读取数据到内存处理，再批量写入，比循环单个单元格速度快很多，数据量越大优势越明显。

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