Hướng dẫn Lập Công Thức Tách Dòng

[Non_stop]

Hi all, mọi người cho mình hỏi có cách nào tách dòng trong excell bằng công thức hay ko bởi mình có một tài sản có số lượng là 202 cái thì phải tách ra là 202 dòng tương ứng mỗi dòng là một cái bởi vì phải upload file excell lên chương trình kế toán ERP như thế này quản lý chi tiết bằng chương trình kế toán khi cần thanh lý 5 cái của tài sản thì sẽ bỏ đi 5 dòng thôi hic nhưng có tổng cộng 3500 tài sản có dòng thì chỉ có 1 cái còn dòng khác thì 13 cái ..
Thank You Advance I hope everyone help me

http://www.mediafire.com/?9duk74kb1wl6bks

 

[xuanthanh]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Thực sự không hiểu bạn nói gì. Có thể diễn giải rõ hơn không?
Thân

 

[Non_stop]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Dear XuanThanh, mình thê này nha file excell này là file tổng hợp về tài sản và muốn hỏi có công thức nào tách dòng ra ko ví dụ dòng số 04 ô số lượng (Qty) =13 tức là 13 cái máy phylon Press M/C bây giờ làm sao tách làm 13 dòng Phylon Press M/C tương ứng mỗi dòng là một cái máy đó với số lượng là 1 cái , đồng thời số thứ tự ở cột của nó vẫn là nó chỉ thay đổi số tiền 102,375 /13= ? giá trị một cái .
Thank ...

 

[xuanthanh]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Dear XuanThanh, mình thê này nha file excell này là file tổng hợp về tài sản và muốn hỏi có công thức nào tách dòng ra ko ví dụ dòng số 04 ô số lượng (Qty) =13 tức là 13 cái máy phylon Press M/C bây giờ làm sao tách làm 13 dòng Phylon Press M/C tương ứng mỗi dòng là một cái máy đó với số lượng là 1 cái , đồng thời số thứ tự ở cột của nó vẫn là nó chỉ thay đổi số tiền 102,375 /13= ? giá trị một cái .
Thank ...

Không có công thức nào đâu, mà nếu có thì cũng rất phưc tạp. Nếu làm bằng macro thì có thể được
thân

 

[Non_stop]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Hi Ban, Ban giup mình nha cài đặt công thức macro cũng đc , mình cần gấp lắm mong bạn giúp đỡ
Thank

 

[xuanthanh]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Hi Ban, Ban giup mình nha cài đặt công thức macro cũng đc , mình cần gấp lắm mong bạn giúp đỡ
Thank

Nhấn nút hình oval ở Sheet1 rồi xem kết quả ở Sheet2
Thân

 

[Non_stop]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Hi Xuan Thanh, Minh cam on ban rat nhieu. Nhan tien day minh rat han hanh lam quen voi xin add nick name yahoo: nguyenquanghung0711
Ban o dau cho minh lam quen de con tam su hoc dao ?
Thank You

 

[xuanthanh]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Hi Xuan Thanh, Minh cam on ban rat nhieu. Nhan tien day minh rat han hanh lam quen voi xin add nick name yahoo: nguyenquanghung0711
Ban o dau cho minh lam quen de con tam su hoc dao ?
Thank You

Lần sau nhớ viết tiếng Việt có dấu
Tôi đang ở TP HCM. Mail của tôi : bachdanggiang_2006@yahoo.com
Thân

 

[Non_stop]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Lần sau nhớ viết tiếng Việt có dấu
Tôi đang ở TP HCM. Mail của tôi : bachdanggiang_2006@yahoo.com
Thân

Sorry vì hôm đó bận quá nên quên đánh ko dấu ah nick chat :nguyenquanghung0711@yahoo.com mình đã add nick bạn vô rồi đó, mình ở biên hòa, đồng nai .

 

[themoishoc]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Chào các bạn
Mình có một bang tính, nhưng mình muốn cứ 50 dòng thì tách ra, vì số lượng dòng là khá nhiều nên không thể làm thủ công được, ai có cách nào chỉ mình với

View attachment 13048

File đính kèm theo

 

[be09]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Chào các bạn
Mình có một bang tính, nhưng mình muốn cứ 50 dòng thì tách ra, vì số lượng dòng là khá nhiều nên không thể làm thủ công được, ai có cách nào chỉ mình với

View attachment 13048

File đính kèm theo

Vì muốn giúp themoishoc cho đỡ vất vã nên anh mạn phép sửa code của TQChanh cho phù hợp với yêu cầu của themoishoc, mong TQChanh thông cãm.

Code trong Module:

Option Explicit
Sub Insert50Dòng()
Const Chon50Dòng As Byte = 51: Dim Jj As Long
Range("A2").Select
Jj = Jj + 1

Do
Jj = Jj + 1
Rows(Jj * Chon50Dòng & ":" & Jj * Chon50Dòng).Select
If Cells(Selection.Row, "A").Value = "" Then Exit Do
Selection.Insert Shift:=xlDown
Loop

Rows("52:52").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
End

End Sub

Xem File đính kèm.
https://www.box.com/s/829jse0xk3hwgm2haxbh

 

[Xuân Phương]

Ðề: Bạn thử chạy macro sau & sau đó tự chỉnh lại số liệu

Option Explicit
Sub AddRows()
 Const SoDong As Byte = 10:         Dim Jj As Long
 
 [B2].Select
 Do
    Jj = Jj + 1
    Rows(Jj * SoDong & ":" & Jj * SoDong).Select
    If Cells(Selection.Row, "A").Value = "" Then Exit Do
    Selection.Insert Shift:=xlDown
 Loop
End Sub

Bài này đúng khi không có dòng tiêu đề. Nếu có thì sao bạn? Có thể sẽ là như thế này chăng :

...
Rows(Jj * SoDong + 1 & ":" & Jj * SoDong +1).Select
...

Cám ơn

 

[VetMini]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Tùy theo số lượng là bao nhiêu. Làm thủ công được tới khoảng 2000 dòng.

- tìm tới dòng cuối cùng.
- đi ngược lên, cho tới dòng chia chẵn cho 50, nếu có tiều đề thì dòng này + 1
- mở record macro
- insert dòng
- tiếp tục đi ngược lên 50 dòng
- đóng record macro
- đặt phím tắt cho macro là Ctrl+e (đây là phím tắt còn được để trống của Excel)
- liên tục nhấn Ctrl+e để nhét tiếp tục.
Nếu có chừng 2000 dòng thì phải nhấn 40 lần, đó là con số khả thi.

=== Bổ sung ===

Lúc đầu mình có ý kiến đi ngược từ dưới lên trên để tránh sự xáo trộn số dòng. Sau khi viết xong, nghiệm lại thấy đi từ trên xuống cũng chẳng chết ai.

- Bắt đầu từ dòng 1, nếu có tiêu đề thì dòng 2
- mở record macro
- đi xuống 50 dòng
- insert dòng
- đóng record macro

 

[phungnt]

Ðề: Hướng dẫn Lập Công Thức Tách Dòng

Bạn Bé09 này sống quá lâu thời bao cấp nên chưa thoát ra được;

& cứ thế sẽ làm ngành Giáo dục nước nhà thêm lụn bại