Code của bạn đây. Chép vào code của Sheet Chuyen rồi chạy nó
Mã:
Sub Chuyen()
Dim SNguon As Worksheet, SChuyen As Worksheet
Dim m As Long, n As Long, i As Long, j As Long
Set SNguon = Sheet1
Set SChuyen = Sheet2
m = SNguon.Range("A65000").End(xlUp).Row
n = SChuyen.Range("B65000").End(xlUp).Row
If n > 2 Then SChuyen.Range("B2:C" & n).ClearContents
For i = 2 To m
n = SChuyen.Range("B65000").End(xlUp).Row + 1
j = SChuyen.Range("C65000").End(xlUp).Row + 1
If Left(SNguon.Range("A" & i), 4) = "Name" Then SChuyen.Range("B" & n) = Right(SNguon.Range("A" & i), Len(SNguon.Range("A" & i)) - 6)
If Left(SNguon.Range("A" & i), 5) = "Phone" Then SChuyen.Range("C" & j) = Right(SNguon.Range("A" & i), Len(SNguon.Range("A" & i)) - 8)
Next
MsgBox "Da chuyen xong", , "GPE"
End Sub
Anh ơi cho em hỏi sau khi chạy code lấy dữ liệu và em có định dạng ô có các dữ liệu đã được điền như sau:
1/ Số thứ tự (cột A) theo chiều dọc là nằm ở giữa, và chiều ngang nằm ở giữa
2/ Nội dung từ ô B4 trở đi theo chiều dọc là căn lề trái, theo chiều ngang là nằm ở giữa (như hình em tải kèm) nhưng sau khi mà chạy lại code anh đã giúp thì định dạng đó lại mất.
Dữ liệu của em khá là nhiều mà mỗi khi chạy lại code lại định dạng lại, anh có cách nào giúp em để khi chạy code mà có thể định dạng luôn như nội dung 1/ và 2/ em đã nêu trên không ạ?
Em đã ghi maccro nhưng đoạn code dài và chạy chậm quá! nhờ anh sửa giúp em chút!
Mã:
Range("A4:A27").Select
ActiveWindow.SmallScroll Down:=-6
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveWindow.SmallScroll Down:=-6
Range("B4:B27").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
Anh/chị cho em hỏi bảng mã chuyển đổi trong file anh có gửi cho em xin gọi là gì vậy ạ?
Nó chuyển đổi ngôn ngữ từ font sang unnicode dang ngon ngữ VBA phải không ạ?
Anh/chị giải thích giúp! em mới biết đến excel nên chưa hiểu.
Anh/chị cho em hỏi bảng mã chuyển đổi trong file anh có gửi cho em xin gọi là gì vậy ạ?
Nó chuyển đổi ngôn ngữ từ font sang unnicode dang ngon ngữ VBA phải không ạ?
Anh/chị giải thích giúp! em mới biết đến excel nên chưa hiểu.
Anh ơi cho em hỏi sau khi chạy code lấy dữ liệu và em có định dạng ô có các dữ liệu đã được điền như sau:
1/ Số thứ tự (cột A) theo chiều dọc là nằm ở giữa, và chiều ngang nằm ở giữa
2/ Nội dung từ ô B4 trở đi theo chiều dọc là căn lề trái, theo chiều ngang là nằm ở giữa (như hình em tải kèm) nhưng sau khi mà chạy lại code anh đã giúp thì định dạng đó lại mất.
Dữ liệu của em khá là nhiều mà mỗi khi chạy lại code lại định dạng lại, anh có cách nào giúp em để khi chạy code mà có thể định dạng luôn như nội dung 1/ và 2/ em đã nêu trên không ạ?
Em đã ghi maccro nhưng đoạn code dài và chạy chậm quá! nhờ anh sửa giúp em chút!
Mã:
Range("A4:A27").Select
ActiveWindow.SmallScroll Down:=-6
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveWindow.SmallScroll Down:=-6
Range("B4:B27").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
With Sheets("chuyen")
m = .Range("B65000").End(xlUp).Row
.Range("A4:A" & m).HorizontalAlignment = xlCenter
.Range("A4:B" & m).VerticalAlignment = xlCenter
End With
With Sheets("chuyen")
m = .Range("B65000").End(xlUp).Row
.Range("A4:A" & m).HorizontalAlignment = xlCenter
.Range("A4:B" & m).VerticalAlignment = xlCenter
End With