làm thế nào để giữ lại được các Col_index_num Khi mình thay đổi tên hoặc

Chào bạn bạn có thể mô tả rõ hơn không nhỉ?

Ví dụ: Cột giá trị em muốn tìm kiếm theo nội dung màu vàng và các giá trị e dò được bằng hàm vlookup là những cột màu xanh da trời.  Sau khi dò được rồi em muốn biến tấu nội dung trong cột màu vàng theo ý mình mà không làm mất đi giá trị của những cột màu xanh da trời thì có cách nào không thưa thầy?

Sub InsertCharacter()

'Updateby Extendoffice

Dim Rng As Range

Dim InputRng As Range, OutRng As Range

Dim xRow As Integer

Dim xChar As String

Dim index As Integer

Dim arr As Variant

Dim xValue As String

Dim outValue As String

Dim xNum As Integer

xTitleId = "GITIHO for YOU"

Set InputRng = Application.Selection

Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)

xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)

xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)

Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)

Set OutRng = OutRng.Range("A1")

xNum = 1

For Each Rng In InputRng

   xValue = Rng.Value

   outValue = ""

   For index = 1 To VBA.Len(xValue)
       
 

       If index Mod xRow = 0 And index <> VBA.Len(xValue) Then

           outValue = outValue + VBA.Mid(xValue, index, 1) + xChar

       Else

           outValue = outValue + VBA.Mid(xValue, index, 1)

       End If

   Next

   OutRng.Cells(xNum, 1).Value = outValue

   xNum = xNum + 1

Next

End Sub
 

Đoạn code này thêm ký tự có điều kiện từ trái qua phải. Vậy mình muốn từ phải qua trái thì làm như thế nào nhỉ

Bạn đẩy file lên giúp gitiho nhé, nguyên code này không debug để biết được bạn nhé.

Bạn có thể sử dụng phương pháp viết tọa độ theo Cells(số dòng, số cột)

hoặc Range(Cells(số dòng, số cột), Cells(số dòng, số cột))

Với cách viết này bạn có thể sử dụng vòng lặp cho số cột để chạy theo chiều trái-phải hoặc phải-trái tùy theo step là 1 hay -1