Mình có 1 danh sách các cty, rất nhiều, nhưng tên cty lại bị đảo ngược
VD: CTY TNHH Thương mại Thành An - bị đổi thành CTY Thành An TNHH Thương mại . Nghĩa là cấu trúc tên "CTY A TNHH B", và mình cần đổi lại thành "CTY TNHH B A"
Bạn nào có cách đổi hàng loạt , nhanh và chính xác k? khoảng 50.000 tên cty mà đổi = tay thủ công thì k làm được mất.
Có ảnh kèm theo đây
 

amoll07

New Member
Dùng vba thôi chứ sao.
Cách cài đoạn mã này:

sub DoiTen()
i=1
do while true
range.select("A" & i)
tmp=activecell.formular1c1
if tmp="" then exit do
for j=4 to len(tmp)
if mid(tmp,j,4)="TNHH" then
subcty=mid(tmp,4,j-4)
ctyname=left(tmp,len(tmp)-j-4)
activecell.formular1c1="CTY TNHH" & ctyname & subcty
exit for
end if
next j
i=i+1
wend
end sub
 

nhypy

New Member
Thank bạn
mình gà về excel, làm mãi mà k được. bạn chỉ rõ cho minh được k, về cách lưu templates, cách chạy macro.
 

Các chủ đề có liên quan khác

Top