hướng dẫn viết code để tách dữ liệu

[ST-Lu!]

Em xin lối vì đặt tiêu đề khác với nội dung, vì sau khi post thì tự làm được và gặp phải rắc rối sau

----------------------
Sau khi chạy code --> làm cách nào để cột I của em chuyển đựoc về dạng số?

Em chạy đoạn code sau nó báo
"Object required là gì? hà các bác"

Sub Macro1()

Range("L1").Select
ActiveCell.FormulaR1C1 = "1"
Range("L1").Select
Selection.Copy
Range("I2:I"&er).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub

Mong các bác chỉ giúp

 

[Po_Pikachu]

Bạn mở file ra nhấn Alt + F8, chạy Macro tachdulieu thì sẽ được như ý. File: http://www.mediafire.com/?oqtnzzmtvkz Thân.

 

[ST-Lu!]

Em mới upload lại file các anh xem giúp
----
Cám ơn nhiều

ST

 

[boyxin]

Em xin lối vì đặt tiêu đề khác với nội dung, vì sau khi post thì tự làm được và gặp phải rắc rối sau

----------------------
Sau khi chạy code --> làm cách nào để cột I của em chuyển đựoc về dạng số?

Mong các bác chỉ giúp

Xoa bỏ đoạn code này đi là OKIE thôi mà

    Columns("I:I").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Style = "Comma"

 

[boyxin]

Xoa bỏ đoạn code này đi là OKIE thôi mà

    Columns("I:I").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Style = "Comma"

Hiiiiiii: Máy thì coi dấu (.) là dấu ngăn cách thập phân, lại đem đổi thành dấu (,) thì nó hiểu là Text

 

[Mr Okebab]

Hiiiiiii: Máy thì coi dấu (.) là dấu ngăn cách thập phân, lại đem đổi thành dấu (,) thì nó hiểu là Text

Nếu vậy thì trước khi convert thì kiểm tra xem dấu thập phân của máy là gì ????

Thân!

 

[ST-Lu!]

Nguyên văn bởi boyxin
Hiiiiiii: Máy thì coi dấu (.) là dấu ngăn cách thập phân, lại đem đổi thành dấu (,) thì nó hiểu là Text

Các bác thông cảm, khi làm bằng tay toàn phải qua động tác bỏ "." thành ",". Sau đó đem nhân với 1 để chuyển về dạng số
Khi record Macro cứ ý thể mà diễn..

He he
xóa đi code chạy fe fé
----------------
Cám ơn các bác nhiều

 

[Mr Okebab]

Các bác thông cảm, khi làm bằng tay toàn phải qua động tác bỏ "." thành ","

Cám ơn các bác nhiều

Cái tớ muốn nói đến là việc này phải tự động chứ bằng tay thì nói làm gì.

Nếu vậy thì trước khi convert thì kiểm tra xem dấu thập phân của máy là gì ????

Cách tìm dấu thập phân :

Function DauTPhan() As String
    Dim i As String
    If Application.UseSystemSeparators = True Then
        i = Format(111 / 100, "##0.00")
        If Right$(i, 2) = "11" Then
            DauTPhan = ","
        Else
            DauTPhan = "."
        End If
    Else
        DauTPhan = Application.DecimalSeparator
    End If
End Function

Thân!