使用 VBA 减去一列的值并将其粘贴到下一列

Question

我是 VBA 新手，我想使用 VBA 从 B 列中减去部分值并将其粘贴到 A 列，任何帮助将不胜感激。

选项卡名称 - 原始数据

A 栏	B 栏
ABCD	000000000ABCD53453534543
CDEF	000000001CDEF999999999
FGHJ	000000002FGHJ5345435345

我的VBA代码如下：

SUB RecordType

with sheet("Raw Data")

With .range("A:A")

.Value = mid("B:B",10,4)

END WITH
END WITH
END SUB

Answer 1

• 将 B 列数据加载到数组中
• 提取子字符串并写入Col A

Sub Demo()
    Dim i As Long
    Dim arrData, rngData As Range
    Dim arrRes
    Set rngData = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    arrData = rngData.Value
    ReDim arrRes(1 To UBound(arrData), 0)
    For i = LBound(arrData) To UBound(arrData)
        arrRes(i, 0) = Mid(arrData(i, 1), 10, 4)
    Next i
    rngData.Offset(, -1).Value = arrRes
End Sub