Gửi bởi
HuuThanh
Mình cũng hay có những dãy số có dấu phẩy cần phải tác riêng ra các hàng. Mình chỉ làm thủ công là copy nó ra file txt sau đó mở lại file đó bằng excel là được. Nó tự tách luôn. Nhưng nếu được các anh cao thủ viết cho cái Funtion bằng maco thì thật tốt. Các anh giúp chúng em với !
Bạn chép đoạn code này vào module, sau đó tạo một nút lệnh (hoặc phím tắt) kích thủ tục này chạy, trước khi chạy phải chọn vùng cần tách số (có thể là 1 ô hoặc nhiều dòng, nhưng chỉ duy nhất 1 cột)
Trong file ví dụ, bạn kéo chuột chọn từ ô A4:A6, sau đó click nút [Process]
trong hộp input box gõ vào B8, dữ liệu sẽ được tách ra và copy bắt đầu từ ô B8.
Mã nguồn PHP:
Sub TextToColumn()On Error GoTo ErrorTexta = InputBox("Chon vung can luu du lieu", "Input Box") Selection.TextToColumns Destination:=Range(a), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=TrueExit_ErrorText:Exit SubErrorText: MsgBox Err.Number & Space(2) & Err.Description & Chr(13) & _ "Co le ban chua chon o can tach so lieu, vui long chon o can tach so lieu" Resume Exit_ErrorTextEnd Sub