宏如何变更

bxg117

vba修改：批数由b列变为F列，
                   产品代码A列变为J列
                  流水号中的3个宏程序怎么改？
Sub cpdm()
    arr = Sheet1.[a1].CurrentRegion
    For i = 3 To UBound(arr)
        ReDim brr(1 To arr(i, 2), 1 To 1)
        For a = 1 To UBound(brr)
            brr(a, 1) = arr(i, 1)
        Next
        Sheet2.Range("A" & 4 + m).Resize(UBound(brr), 1) = brr
        m = m + UBound(brr)
    Next
End Sub

砂海

Sub cpdm()
    arr = Sheets("1月批号表").Range("j1:a" & Sheets("1月批号表").Range("a2").End(xlDown).Row)

这样arr 包含了 j 列 内容

bxg117

弱弱的问一句，老师，能否给个完整的修改后程序，我刚接触VBA，先谢谢您的关注！.