cần tìm công thức hặc hàm chia đôi dữ liệu ở cột A (2 người xem)

[titanic]

chào các a/c ! chúc các em cái và các cô ngày 20/10 luôn trẻ đẹp
cho em hỏi ? vd em có dữ liệu ở cột A có chiều dài dữ liệu không xác định. em muốn nó sẽ chi đôi dử liệu thành 2 phần đều nhau rồi điện vào cột B và C
[TABLE="width: 500"]
[TR]
[TD]trung
[/TD]
[TD][/TD]
[TD]trung
[/TD]
[TD]nho
[/TD]
[/TR]
[TR]
[TD]thanh
[/TD]
[TD][/TD]
[TD]thanh
[/TD]
[TD]tim
[/TD]
[/TR]
[TR]
[TD]nhan
[/TD]
[TD][/TD]
[TD]nhan
[/TD]
[TD]tai
[/TD]
[/TR]
[TR]
[TD]ha
[/TD]
[TD][/TD]
[TD]ha
[/TD]
[TD]du
[/TD]
[/TR]
[TR]
[TD]hoa
[/TD]
[TD][/TD]
[TD]hoa
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]hong
[/TD]
[TD][/TD]
[TD]hong
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]nho
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]tim
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]tai
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]du
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

cám ơn

 

[Ba Tê]

chào các a/c ! chúc các em cái và các cô ngày 20/10 luôn trẻ đẹp
cho em hỏi ? vd em có dữ liệu ở cột A có chiều dài dữ liệu không xác định. em muốn nó sẽ chi đôi dử liệu thành 2 phần đều nhau rồi điện vào cột B và C
[TABLE="width: 500"]
[TR]
[TD]trung
[/TD]
[TD][/TD]
[TD]trung
[/TD]
[TD]nho
[/TD]
[/TR]
[TR]
[TD]thanh
[/TD]
[TD][/TD]
[TD]thanh
[/TD]
[TD]tim
[/TD]
[/TR]
[TR]
[TD]nhan
[/TD]
[TD][/TD]
[TD]nhan
[/TD]
[TD]tai
[/TD]
[/TR]
[TR]
[TD]ha
[/TD]
[TD][/TD]
[TD]ha
[/TD]
[TD]du
[/TD]
[/TR]
[TR]
[TD]hoa
[/TD]
[TD][/TD]
[TD]hoa
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]hong
[/TD]
[TD][/TD]
[TD]hong
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]nho
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]tim
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]tai
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]du
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

cám ơn

Các "em cái" là khác các "em đực" hay sao?
Viết xong cũng phải đọc lại xem mình đã "quăng lên" cái gì chứ.

 

[VetMini]

"Em muốn" tức là muốn chỉ dẫn sơ sơ hay là giúp code phần khó nhất, hay là a đến z?

Đây là code chia hai một range, chép vào hai cột kế bên nó.
Bạn tìm hiểu trên diễn đàn cách tình range để đưa vào làm tham số:

sub ThucHien()
' tìm code trên diễn đàn, cắt lây đoạn code tìm các ô có dữ liệu trong cột A
' goi range này là rg
Chia rg
end sub

Sub Chia(ByVal rg As Range)
' sub chia một range thành 2 cột ghi vào kế bên
Dim numA As Integer, numB As Integer
numA = rg.Rows.Count
numB = (numA + 1) \ 2
rg.Resize(numB).Copy Destination:=rg.Resize(numB).Offset(0, 1)
rg.Offset(numB, 0).Resize(numA - numB).Copy Destination:=rg.Resize(numA - numB).Offset(0, 2)
End Sub