Cách nhập dữ liệu nhanh trên Excel?

[hadungse]

Tôi có một sheet lưu thông tin như sau:
A1 B1
1001.9 100mX1.9cmX56c
1002.4 100mX2.4cmX42c
1002.5 100mX2.5cmX42c
1002.6 100mX2.6cmX39c
1002.7 100mX2.7cmX38c
1002.8 100mX2.8cmX37c
1002.9 100mX2.9cmX36c
1003 100mX3.0cmX35c
1003.1 100mX3.1cmX34c
1003.2 100mX3.2cmX33c
1003.3 100mX3.3cmX32c
1003.4 100mX3.4cmX31c
1003.5 100mX3.5cmX30c
1003.6 100mX3.6cmX30c
1003.7 100mX3.7cmX29c
1003.8 100mX3.8cmX28c
1003.9 100mX3.9cmX27c
1004 100mX4.0cmX26c
1004.1 100mX4.1cmX25c
1004.2 100mX4.2cmX24c
1004.3 100mX4.3cmX23c
1004.4 100mX4.4cmX23c

va tôi muốn khi qua sheet 2 khi tôi đánh vào ô (VD: A1:1001.9) khi enter thi nó sẽ đổi thành 100mX1.9cmX56c.
các bạn có biết thì chỉ giùm với.
thanks a lot

 

[1234567890]

qua web www.giaiphapexcel.com mà hỏi đi bạn, cao thủ bên đó ko à, trường hợp của bạn dùng hàm Vlookup là xong

 

[hadungse]

không phải như bạn nghĩ, ví dụ trên ô A1 ở sheet2 tôi đánh vào 1001.9 khi enter thi sẽ đổi thành 100mX1.9cmX56c

 

[SA_DQ]

Macro cho bạn đây, xin mời

Chú í khi sử dụng:
(*) Tên Sheets chứa dữ liệu đang là 'L1'
(*) Phải chép macro này vô SheetName nào đó, VD 'L2';
Macro chỉ tác động khi nhập vô cột 'A' của sheets đang chứa macro này trong SheetName
(*) Nếu không tìm thấy dữ liệu bên cột 'A' của 'L1', macro sẽ điền chuỗi của nó vô vị trí bạn vừa nhập
(*) Bạn không phụ thuộc dòng giữa 'L1' & 'L2'

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
Dim Rng As Range, sRng As Range

With Sheets("L1")
Set Rng = .Range(.[a1], .[a1].End(xlDown))
End With
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlPart)
If sRng Is Nothing Then
Target.Value = "Is nothing."
Else
Target.Value = sRng.Value
End If
End If
End Sub