Dồn các dòng dữ liệu

[hongphuong1997]

Cháu muốn dồn các dòng dữ liệu vào gần nhau như file đính kèm.
Cháu nhờ các bác cùng các anh chị viết giúp code VBA hoặc (Bằng hàm Excel)
Cháu cảm ơn ạ.

 

[Hoàng Tuấn 868]

Cháu muốn

.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .

 

[hongphuong1997]

.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .

Trời ạ
Em cảm ơn anh ạ!
Em cứ tưởng anh chỉ giỏi VBA, thế mừ hàm anh cũng giỏi thế hở anh?

 

[Hoàng Tuấn 868]

hở anh?

Ơ, anh có hở chỗ nào đâu nhỉ.

 

[hongphuong1997]

Ơ, anh có hở chỗ nào đâu nhỉ.

Hihi..... anh oi, công thức không cần phải Ctrl+Shift+Enter vẫn đúng anh nhé.
Em có đưa công thức vào Sub() nhưng nó bị lỗi
Anh sửa cho em với ạ.
Sub congthuc2()
'Range("z1:z10") = "=INDEX(range("$G$1:$G$31"),(ROW(D1)*4)-2,1)"
End Sub

 

[Hoàng Tuấn 868]

Hihi..... anh oi, công thức không cần phải Ctrl+Shift+Enter vẫn đúng anh nhé.
Em có đưa công thức vào Sub() nhưng nó bị lỗi
Anh sửa cho em với ạ.
Sub congthuc2()
'Range("z1:z10") .= "=INDEX(range("$G$1:$G$31"),(ROW(D1)*4)-2,1)"
End Sub

Từ sau dấu bằng "=", chỗ nào có nháy kép (") thì phải thêm nháy kép nữa khi đưa vào trong Sub().
Hoặc:

sheet1.range("z1:z10") .Formula= "=INDEX(range("$G$1:$G$31"),(ROW(D1)*4)-2,1)"

 

[hongphuong1997]

Từ sau dấu bằng "=", chỗ nào có nháy kép (") thì phải thêm nháy kép nữa khi đưa vào trong Sub().
Hoặc:

Anh oi, em vẫn chưa hiểu chỗ này anh nhé.
Tại sao chỗ thì trừ và chỗ lại không trừ hở anh?
Công thức này không trừ
=INDEX($E$1:$E$31;(ROW(A1)*4);1)
Nhưng công thức này lại trừ
=INDEX($G$1:$G$31;(ROW(B5)*4)-2;1)
Anh giải thích cho em với ạ.

 

[Hoàng Tuấn 868]

Anh oi, em vẫn chưa hiểu chỗ này anh nhé.
Tại sao chỗ thì trừ và chỗ lại không trừ hở anh?
Công thức này không trừ
=INDEX($E$1:$E$31;(ROW(A1)*4);1)
Nhưng công thức này lại trừ
=INDEX($G$1:$G$31;(ROW(B5)*4)-2;1)
Anh giải thích cho em với ạ.

Công thức này không trừ:

(ROW(A1)*4)

Em bôi đen đoạn này rồi ấn phím F9 sẽ thấy hiện ra kết quả là dòng 4, tương ứng với kết quả tại dòng 4 là P7 trong bảng dữ liệu từ ($E$1:$E$31).

Công thức này lại trừ:

(ROW(A1)*4)-2

Tương tự, nhưng do dòng kết quả lại bắt đầu từ dòng thứ 2 chứ không phải từ dòng thứ 4 như bên kia nữa, nên ta lấy 4 - 2 thì ra kết quả tại dòng thứ 2 tại ($G$1:$G$31) được kết quả là "NV11|NV31".

 

[hongphuong1997]

Công thức này không trừ:

Em bôi đen đoạn này rồi ấn phím F9 sẽ thấy hiện ra kết quả là dòng 4, tương ứng với kết quả tại dòng 4 là P7 trong bảng dữ liệu từ ($E$1:$E$31).

Công thức này lại trừ:

Tương tự nhưng do dòng kết quả lại bắt đầu từ dòng thứ 2 chứ không phải từ dòng thứ 4 như bên kia nữa nên ta lấy 4 - 2 thì ra kết quả tại dòng thứ 2 tại ($G$1:$G$31) thì được kết quả là "NV11|NV31".

Hihihi.... em đang hiểu dần rùi anh oi
Em cảm ơn anh ạ
Em chúc anh mọi sự vui