Điền thêm mã KH ???

[sonlq]

Em có file gửi kèm cần làm như trong file.
Mục đích là điền các mã KH vào tương ứng với các tên KH.
Cụ thể là từ bảng 1 có sẵn làm thế nào để ra được bảng 2. Ở cột tên KH mà trống thì mã KH cũng để trống.
Em cảm ơn

 

[SA_DQ]

Đây, macro của bạn, xin mời

Option Explicit
Sub DienMaKhachHang()
 Dim Clls As Range, Rng As Range
 Dim eRw As Long, Jj As Long, MKH As Long
 
 eRw = [A65500].End(xlUp).Row
 For Jj = eRw To 3 Step -1
   With Cells(Jj, 1)
      If IsNumeric(.Value) And Left(.Offset(, 1).Value, 1) = "T" Then
         MKH = .Value:              .Value = ""
      ElseIf .Value = "" And .Offset(, 1).Value <> "" Then
         .Value = MKH
      Else
         MKH = 0
      End If
   End With
 Next Jj
End Sub

Chú í: Bạn cần dời bảng 2 đi nơi khác trước khi chạy macro

 

[sonlq]

Cảm ơn bạn mình làm được rồi, nhưng có 1 vấn đề là nếu mã KH (cột A) là ký tự (ví dụ New) thì kết quả trả về lại bằng 0. Bạn có thể xem giúp mình cho kết quả trả về đúng là New có được không?
Cảm ơn bạn rất nhiều.

 

[huuthang_bd]

Em có file gửi kèm cần làm như trong file.
Mục đích là điền các mã KH vào tương ứng với các tên KH.
Cụ thể là từ bảng 1 có sẵn làm thế nào để ra được bảng 2. Ở cột tên KH mà trống thì mã KH cũng để trống.
Em cảm ơn

Thử với cái này xem. Không dùng vòng lặp.

Sub STT()
    Dim Rng As Range, DRng As Range
    Set Rng = Range([A3], [A65536].End(xlUp))
    Set DRng = Rng.SpecialCells(xlCellTypeConstants, 23)
    Rng.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[1]C"
    Rng.Value = Rng.Value
    Union(Rng.Offset(, 1).SpecialCells(xlCellTypeBlanks).Offset(, -1), DRng).ClearContents
End Sub

Hoặc tôi sẽ dùng cột phụ với công thức này:

=IF(B4="","",IF(A5="",E5,A5))

Sau đó copy value lại cột mã KH.

 

[Audit_chuong]

Bạn có thể dùng cách này cũng được, không gần viết Code.
Bạn chọn A4:A27, rồi nhấn Ctrl + G, chọn Special...>Blank, nhấp OK. Rồi đánh công thức "=IF(B4="";"";A5)" rồi bấm Ctrl + Enter, thế là xong.