Định dạng bảng tính: cứ 1 dòng thì cách 1 dòng

[hvphong]

E muốn thêm dòng

Anh chỉ cho e vấn đề này với nhé.Có 1 bản tính excel e muốn:"Cứ 1 dòng thì cách 1 dòng" mà insert từng dòng thì lâu quá.

-----------
Bạn thân mến, lần sau, nếu là câu hỏi mới, bạn mở một topic mới và post đúng chuyên mục nha.

 

[anhtuan1066]

Anh chỉ cho e vấn đề này với nhé.Có 1 bản tính excel e muốn:"Cứ 1 dòng thì cách 1 dòng" mà insert từng dòng thì lâu quá.

Sao bạn ko mở topic mới? Tôi có thể gợi ý bạn 1 cách đơn giãn dùng chức năng Sort
1> Đầu tiên bạn cứ nhập liệu bình thường.. giã sử vùng nhập liệu của bạn là từ A1 đến A20 nhé
2> Tại cột B bạn gõ số 1, 3, 5.. vân vân đến 39, vừa đúng dòng thứ 20
3> Từ B21 đến B40 gõ số 2, 4, 6... vân vân đến 40, vừa đúng dòng thứ 40
4> Quét chọn từ A1 đến B40, vào menu Data\Sort... Sort by: Column B/Ascending
Vậy là bạn đã có 1 bãng tính với 1 dòng dữ liệu và 1 dòng trống rồi... Cuối cùng là xóa cột B đi... nhưng tốt nhất chừa lại cột phụ này đễ có khi phải trã lại như cũ nhé
ANH TUẤN

 

[tigertiger]

Sao bạn ko mở topic mới? Tôi có thể gợi ý bạn 1 cách đơn giãn dùng chức năng Sort
1> Đầu tiên bạn cứ nhập liệu bình thường.. giã sử vùng nhập liệu của bạn là từ A1 đến A20 nhé
2> Tại cột B bạn gõ số 1, 3, 5.. vân vân đến 39, vừa đúng dòng thứ 20
3> Từ B21 đến B40 gõ số 2, 4, 6... vân vân đến 40, vừa đúng dòng thứ 40
4> Quét chọn từ A1 đến B40, vào menu Data\Sort... Sort by: Column B/Ascending
Vậy là bạn đã có 1 bãng tính với 1 dòng dữ liệu và 1 dòng trống rồi... Cuối cùng là xóa cột B đi... nhưng tốt nhất chừa lại cột phụ này đễ có khi phải trã lại như cũ nhé
ANH TUẤN

Rất hay, nhưng bổ sung thêm một chút

+ Trước khi thực hiện chèn thêm cột A để chứa các giá trị 1,3,... đến hết dòng có DL

+ Lúc quét chọn thì quét tất cả vùng DL để sort

 

[hvphong]

Thêm dòng có điều kiện

Em muốn hỏi rỏ thêm tí nửa anh nhé!thêm dòng theo mã số cá nhân.
VD: Giữa hai mã số khác nhau thì thêm dòng ở giữa.

 

[DOSNET]

Em muốn hỏi rỏ thêm tí nửa anh nhé!thêm dòng theo mã số cá nhân.
VD: Giữa hai mã số khác nhau thì thêm dòng ở giữa.

Kết quả đây, kết hợp giữa name và sự gợi ý của bác Tuấn.
...Nghĩ nhiều ngớ ngẩn phức tạp hoá vấn đề quá, không phải dùng đến name...xem file tớ sửa lại bên dưới.

 

[SA_DQ]

Thêm 1 tham khảo gởi đến bạn đây

Thêm dòng theo mã số cá nhân.
VD: Giữa hai mã số khác nhau thì thêm dòng ở giữa.

Option Explicit

Sub InsertRow()
 Dim lRow As Long, lZ As Long
 
 Application.ScreenUpdating = False
 lRow = Range("B65432").End(xlUp).Row
 For lZ = lRow To 3 Step -1
    With Cells(lZ, 2)
        If .Value <> .Offset(-1) Then .EntireRow.Insert
    End With
 Next lZ
End Sub

 

[sixas]

Bạn có thể sử dụng Subtotals để tạo danh sách như ý của bạn, tuy nhiên, khi sử dụng Subtotals thì bạn nên nhớ là danh sách của bạn phải được sort.

Hy vọng cách này đơn giản vì ko cần sử dụng hàm.

 

[nguyenthinu168]

Em cũng thấy rất thú vị về vấn đề này. Cảm ơn các bác đã đưa ra câu trả lời rất hay. Tiện đây cho em hỏi một chút về vấn đề này.
Em có một cột dữ liệu A cách 1 dòng có 1 dòng có số liệu. Hoặc 3 dòng có số liệu một dòng. Bây giờ muốn cho dữ liệu liên tục ở cột C bằng các số liệu ở cột A (bằng cách link) thì làm như thế nào.

HAPPY NEW YEAR.

 

[SA_DQ]

Một trong những cách đó là:

Em có một cột dữ liệu A cách 1 dòng có 1 dòng có số liệu. Hoặc 3 dòng có số liệu một dòng. Bây giờ muốn cho dữ liệu liên tục ở cột C bằng các số liệu ở cột A (bằng cách link) thì làm như thế nào. HAPPY NEW YEAR.

Option Explicit

Sub CopyTo()
 Dim lRow As Long, jZ As Long
 lRow = Range("A65432").End(xlUp).Row
 Range("C1") = "TH"
 For jZ = 1 To lRow
    With Cells(jZ, 1)
        If .Value <> "" Then _
            Range("C" & Range("C65432").End(xlUp).Row + 1).Value = .Value
    End With
 Next jZ
End Sub

 

[anhtuan1066]

Em cũng thấy rất thú vị về vấn đề này. Cảm ơn các bác đã đưa ra câu trả lời rất hay. Tiện đây cho em hỏi một chút về vấn đề này.
Em có một cột dữ liệu A cách 1 dòng có 1 dòng có số liệu. Hoặc 3 dòng có số liệu một dòng. Bây giờ muốn cho dữ liệu liên tục ở cột C bằng các số liệu ở cột A (bằng cách link) thì làm như thế nào.

HAPPY NEW YEAR.

Cái này bạn tham khảo tại đây nhé:
http://www.giaiphapexcel.com/forum/showthread.php?t=7941
ANH TUẤN