Copy ô dòng trên và sau đó thay đổi vị trí 02 từ đầu dòng (1 người xem)

[Cát Lượng]

Xin chào các anh chị, em xin được sự giúp đỡ từ các anh chị vấn đề sau:

Coppy ô dòng trên tương ứng (giống lệnh Ctr + D) nhưng thêm một tác dụng là sẽ đổi thứ tự của 2 từ đầu dòng, và sau đó tô màu chữ nội dung ô vừa được thực hiện.

Ví dụ cụ thể như sau:

Ô số E9 có nội dung: “Láng vữa đáy, thành bể , vữa xi măng mác 100”

Sau khi chèn thủ công một dòng trống em muốn coppy (dùng một phím tắt để chạy code giống như dùng Ctr + D ) ô E9 xuống ô E10 để ô E10 có nội dung và tô màu chữ nội dung đó thành màu tím nhạt nhạt như sau:

là “Vữa láng đáy, thành bể , vữa xi măng mác 100”.

Mong sự giúp đỡ từ các thầy, các anh chị.

 

[dangky47h]

Thôi thế này ...
Không chèn dòng bằng tay gì cả. Đã code thì nó làm từ A đến Z thôi, chứ sao lại phải tự cầy nửa thửa trước?
Chọn ô cần copy xuống và đảo sau đó nhấn phím tắt
Alt + F11 -> menu Insert -> Module -> dán code sau

Sub chen_dan()
Dim k As Long, text As String, s As String
    If TypeName(Selection) = "Range" Then
        If Selection.Parent.Name = "Trang_tinh1" And Selection.Count = 1 And Selection.Column = 5 Then
            text = Application.Trim(Selection.Value)
            k = InStr(1, text, " ")
            s = LCase(Left(text, k - 1))
            k = InStr(k + 1, text, " ")
            s = Application.Proper(Mid(text, Len(s) + 2, k - Len(s) - 2)) & " " & s
            Mid(text, 1, Len(s)) = s
            Selection.Offset(1).EntireRow.Insert
            With Selection.Offset(1)
                .Font.Color = RGB(100, 0, 255)
                .Value = text
            End With
        End If
    End If
End Sub

Bạn tự lập phím tắt mà mình ưa thích. Sau đó: chọn ô -> nhấn phím tắt.

Chú ý là trong code dùng "Trang_tinh1", tức sửa tên sheet thành không có dấu - ký tự Việt. Nếu tên sheet sẽ khác thì sửa trong code cho thích hợp
5 ở trong Selection.Column = 5 có nghĩa là cột E. Nệu cột khác thì tự sửa lại.

Chào anh! em xem bài này, mong anh chỉnh lại hộ em code để:
Không chèn dòng trắng bên dưới:https://giaiphapexcel.com/diendan/t...và-đảo-hai-ký-tự-đầu-dòng.140004/#post-899295