VBA Paste dữ liệu vào bảng

[dailame9x]

Nhờ các bác giúp e với . Em muốn copy giá trị của từng cell ở cột B vào bảng dữ liệu dựa vào địa chỉ ở cột A . Có Inputbox để chọn vùng Range từ A đến B. sau khi kết thúc có hiện số lượng cell đã paste thành công . Em cảm ơn !

 

[BuiQuangThuan]

Nhờ các bác giúp e với . Em muốn copy giá trị của từng cell ở cột B vào bảng dữ liệu dựa vào địa chỉ ở cột A . Có Inputbox để chọn vùng Range từ A đến B. sau khi kết thúc có hiện số lượng cell đã paste thành công . Em cảm ơn !

Thấy I1 nó lặp lại nhiều lần thế mà số liệu khác nhau thì lấy cái nào

 

[dailame9x]

Em lấy ví dụ thôi ạ . Nhưng mà em làm đc rồi .

 

[Hoàng Tuấn 868]

Em lấy ví dụ thôi ạ . Nhưng mà em làm đc rồi .

Bạn làm như thế nào thì chia sẻ để các thành viên cùng học hỏi được không.

 

[VetMini]

Bạn làm như thế nào thì chia sẻ để các thành viên cùng học hỏi được không.

=IFERROR(VLOOKUP(ADDRESS(ROW(), COLUMN(), 4),$A$2:$B$27, 2, 0),"")
Copy cho cả bảng.

 

[Hoàng Tuấn 868]

=IFERROR(VLOOKUP(ADDRESS(ROW(), COLUMN(), 4),$A$2:$B$27, 2, 0),"")
Copy cho cả bảng.

Em cảm ơn anh, em đang tò mò xem code của bạn chủ đề bài vì đăng ở mục Lập trình anh ạ.

 

[duyamadet]

Biết thêm được hàm ADDRESS(ROW(), COLUMN(),4)
Cảm ơn các bạn.

 

[VetMini]

Em cảm ơn anh, em đang tò mò xem code của bạn chủ đề bài vì đăng ở mục Lập trình anh ạ.

Tôi không nghĩ là thớt có thuật toán gì đặc biệt đâu.
Chỉ là đọc mảng đầu vào, chuyển qua mảng đầu ra thôi.
Điểm khó nhất là tìm cách hiệu quả nhất để xác định giới hạn của mảng đầu ra. Nhưng nếu lười thì làm mò cũng chẳng chết ai.

 

[Hoàng Trọng Nghĩa]

Nhờ các bác giúp e với . Em muốn copy giá trị của từng cell ở cột B vào bảng dữ liệu dựa vào địa chỉ ở cột A . Có Inputbox để chọn vùng Range từ A đến B. sau khi kết thúc có hiện số lượng cell đã paste thành công . Em cảm ơn !
View attachment 254517

Chỉ vầy thôi:

Sub PasteValue()
    Dim rng As Range
    For Each rng In Range("A2:A27")
        Range(rng.Value).Value = rng.Offset(, 1).Value
    Next
End Sub

 

[VetMini]

Thuật toán tạm như vầy:

- dùng hàm Min, Max cho cột A để biết bên range kết quả bắt đầu bằng cột nào và kết thúc cột nào. Đổi nó thành cot1 và cot2
- đọc A:B vào mảng a
- dim mảng b(1 To 100000, cot1 To cot2)
- đọc cột 1 mảng a, dịch cái địa chỉ thành số dòng và cột. Chép trị bên cột 2 vào đúng vị trí ở bảng b.
- - trong lúc dịch địa chỉ, nhớ ghi lại cái số dòng lớn nhất ( if dongMx < dongHienTai Then dongMx = dongHienTai )
- cells(1, cot1).Resize(dongMax, cot2 - cot1 +1) = b
- ghi cái tiêu đề vào dòng 1. Mớt mét mẫu mã gì đó tuỳ thích.