Nhờ viết Macro tách dòng trong Excel

[syquan]

Em có một bảng dữ liệu như sau:
1 abc 1231
2 dzf 123
3 fdsf 444
4 hhh 234


Viết hàm để tương ứng với mỗi dòng hiện tại sẽ chèn vào bên dưới 1 dòng . Xin cảm ơn!
1 abc 1231

2 dzf 123

3 fdsf 444

4 hhh 234

 

[haonlh]

Có thể thao tác trực tiếp. Sau đây là code theo ý bạn.
Chú ý phải đặt ô hoạt động trên ô có dữ liệu. Chương trình tự động thêm cho đến gặp ô trống cùng cột

Sub Macro1()
Do While Selection <> ""
Selection.Offset(1, 0).Select
Selection.EntireRow.Insert
Selection.Offset(1, 0).Select
Loop
End Sub

 

[Good-Luck]

em có một bảng dữ liệu như sau:
1 abc 1231
2 dzf 123
3 fdsf 444
4 hhh 234


viết hàm để tương ứng với mỗi dòng hiện tại sẽ chèn vào bên dưới 1 dòng . Xin cảm ơn!
1 abc 1231

2 dzf 123

3 fdsf 444

4 hhh 234

bạn tô đen vùng dự liệu chọn tab data ->text to columns ->next -> tùy chọn chế độ bạn muôn phân chia dự liệu (ví dụ: Bạn muôn phân cách chữ và số theo khoản trắng bạn đánh móc vao space -> finish là xong

 

[Quang_Hải]

Em có một bảng dữ liệu như sau:
1 abc 1231
2 dzf 123
3 fdsf 444
4 hhh 234


Viết hàm để tương ứng với mỗi dòng hiện tại sẽ chèn vào bên dưới 1 dòng . Xin cảm ơn!
1 abc 1231

2 dzf 123

3 fdsf 444

4 hhh 234

Bạn xem code này và sửa lại theo dữ liệu thật của bạn

Sub chendong()
Dim dl, kq, i, j, k
dl = [a1:c5].Value
ReDim kq(1 To UBound(dl) * 2, 1 To 3)
For i = 1 To UBound(dl)
    For j = 1 To 3
        kq(k + 1, j) = dl(i, j)
    Next
    k = k + 2
Next
[a1].Resize(k, 3) = kq
End Sub

 

[OverAC]

Chào bạn, lúc trước tôi làm cách này không cầu dùng Macro:

1. Tạo số thứ tự giống nhau ở vùng cần insert dòng ngay bên dưới.

1 abc 1231
2 dzf 123
3 fdsf 444
4 hhh 234
1
2
3
4

2. Sử dụng data sort để sắp xếp cột số thứ tự sẽ giúp bạn đưa những dòng trống bên dưới lên.
3. Sử dụng auto filter để xoá đi những số thứ tự trong những dòng trống bằng cách filter điều kiện lọc là blank ở cột thứ 2 rồi xoá nội dung bình thường.
4. Tât nhiên bước cuối cùng chỉ cần bỏ filter đi sẽ có kết quả như mong muốn.

 

[ductai89]

macro

mình nhờ mọi người viết hộ minh macro với nội dung sau
mình co 1 bảng tính muôn fill cột "B" sao cho những ký tụ đàu của cột "B" dc coppy va chay the cột "A" như mình minh đã ví dụ