Cách chèn dữ liệu từ cột A vào giữa các ô của cột B (1 người xem)

[minhtriet255]

Chào mọi người, hiện giờ mình đang có thắc mắc về cách chèn dữ liệu từ cột A sang cột B. Ở cột A là dữ liệu thô, cột B là dữ liệu trung bình cộng của 2 ô kế nhau từ cột A. Và bây giờ, mình muốn chèn dữ liệu trung bình cộng của cột A vào giữa các ô của cột B. Nhưng mình vẫn chưa tìm được cách thức để chèn vào. Có bạn nào biết phương pháp chèn dữ liệu như mình đề cập không.

P/S: file dữ liệu thô mà mình đính kèm, các bạn có gì dùng data của mình để làm.

 

[khuongvietphong]

Làm luôn vô File giúp bạn

 

[HieuCD]

chi có tác dụng trình bày cho vui.

 

[minhtriet255]

@khuongvietphong: bạn có thể giúp mình từng bước với.

 

[khuongvietphong]

@khuongvietphong: bạn có thể giúp mình từng bước với.

Bạn mở File ---> bấm ALT+F11 để vô cửa sỏ VBA. Tại khung phía tay trái bạn bấm vô Sheet1 rồi dán vào đoạn Code này:

Option Explicit
Sub chen()
Dim i, r
r = [c1000].End(3).Row * 2
For i = 2 To r Step 2
    Range("B" & i + 1).Select
    Selection.EntireRow.Insert
    Selection = Cells(i, 3).Value
Next i
End Sub

Sau đó nhấn F5 để thực hiện chạy đoạn code trên để thấy được kết quả

 

[minhtriet255]

Khuongvietphong: Mình cám ơn bạn rất nhiều. Hạn hạn được làm quen với bạn.