Xin code sửa dữ liệu hàng loạt (2 người xem)

[kydang1989]

xin chào các a/c GPE
em có 1 vấn đề nhờ các a/c giúp đỡ
em muốn update những mã sp mới vào sheet dulieu
vì dữ liệu rất nhiều nếu dùng vlookup, rồi chọn những mã cần update rồi gán giá trị, copy sang...thì rất lâu. công việc cứ lặp đi lặp lại hoài nên rất lâu
em muốn khi chạy code thì những mã mới nó tự động chạy thẳng vào sheet dulieu (thay thế những mã củ)
thực chất mã củ và mã mới chỉ là 1 (mã mới hàng tháng được nâng cấp lên, thêm 1 hoặc 2 ký tự vào cuối mã)

 

[Let'GâuGâu]

xin chào các a/c GPE
em có 1 vấn đề nhờ các a/c giúp đỡ
em muốn update những mã sp mới vào sheet dulieu
vì dữ liệu rất nhiều nếu dùng vlookup, rồi chọn những mã cần update rồi gán giá trị, copy sang...thì rất lâu. công việc cứ lặp đi lặp lại hoài nên rất lâu
em muốn khi chạy code thì những mã mới nó tự động chạy thẳng vào sheet dulieu (thay thế những mã củ)
thực chất mã củ và mã mới chỉ là 1 (mã mới hàng tháng được nâng cấp lên, thêm 1 hoặc 2 ký tự vào cuối mã)

thử

Sub thaymamoi()
Dim dulieu, masp As Variant, i, j As Long
With Sheet1
    dulieu = .[a10].Resize(.[A60000].End(3).Row).Value
End With
With Sheet2
    masp = .[a2].Resize(.[A60000].End(3).Row, 2).Value
End With

For i = 1 To UBound(dulieu)
If Not IsEmpty(dulieu(i, 1)) Then
    For j = 1 To UBound(masp)
        If dulieu(i, 1) = masp(j, 1) Then dulieu(i, 1) = masp(j, 2)
    Next j
End If
Next i

With Sheet1
    .[a10].Resize(.[A60000].End(3).Row).Value = dulieu
End With
End Sub

 

[TrungChinhs]

xin chào các a/c GPE
em có 1 vấn đề nhờ các a/c giúp đỡ
em muốn update những mã sp mới vào sheet dulieu
vì dữ liệu rất nhiều nếu dùng vlookup, rồi chọn những mã cần update rồi gán giá trị, copy sang...thì rất lâu. công việc cứ lặp đi lặp lại hoài nên rất lâu
em muốn khi chạy code thì những mã mới nó tự động chạy thẳng vào sheet dulieu (thay thế những mã củ)
thực chất mã củ và mã mới chỉ là 1 (mã mới hàng tháng được nâng cấp lên, thêm 1 hoặc 2 ký tự vào cuối mã)

Thử thêm code này.

Sub Replace()
    For Each cls In Range(Sheets("Masp").[a2], Sheets("Masp").[a65000].End(3))
        Range(Sheets("dulieu").[a10], Sheets("dulieu").[a65000].End(3)).Replace cls, cls(1, 2), 1
    Next
End Sub