Học hỏi với Excel - Chèn dòng xen kẻ.

  • Thread starter thanhphuongha
  • Ngày gửi
T

thanhphuongha

Trung cấp
21/10/06
60
0
6
40
TP HCM
Cho em hỏi,VD em có cột sau:
11111
22222
33333
44444
55555
66666
........
Giờ em muốn định dạng các dòng trên cách nhau 1 dòng,nếu insert thi lâu quá
Có cách nào không giúp em với.:sick:

:wall: Làm cách nào để insert cùng một lúc nhiều dòng?Để mỗi hàng cách nhau 1 dòng?
 
Khóa học Quản trị dòng tiền
B

Bình_OverAC

Over Abnormal / Crazy
14/5/04
846
10
18
42
Nha Trang
Tôi có thể làm được điều này bằng 3 cách:
Tuy nhiên đây là cách dể nhất mà tôi khuyên bạn nên làm:
1. Thêm 1 cột số thứ tự và đánh số thứ tự từ dòng đầu tiên đến dòng cuối cùng theo thứ tự 1, 3,5, 7.. bạn có thể làm được điều này tự động bằng cách dùng công thức ví dụ A2 = A1 + 2 và chép xuống. Tất nhiên A1 = 1. Đánh số đến hết thảy dòng mà dử liệu của bạn có được
2. Cũng trên cột nói trên bạn đánh số chẳn từ 2 đến .... con số gấp đôi số dòng mà dử liệu của bạn có.
3. Dùng Data--> Sort để sort lại tòan bộ dử liệu của bạn theo cột đã đánh số theo thứ tự tăng dần.
4. Xóa cột đánh số thứ tự đã tạo ra.
Đó là tất cả những gì bạn phải làm. Chúc bạn thành công
 
Thanh Nam

Thanh Nam

Admin
Thành viên BQT
Quản lý cao cấp
24/4/03
3,314
1,123
113
HCM
www.famaconsulting.vn
thanhphuongha nói:
Cho em hỏi,VD em có cột sau:
11111
22222
33333
44444
55555
66666
........
Giờ em muốn định dạng các dòng trên cách nhau 1 dòng,nếu insert thi lâu quá
Có cách nào không giúp em với.:sick:

:wall: Làm cách nào để insert cùng một lúc nhiều dòng?Để mỗi hàng cách nhau 1 dòng?
Cách mà mình hay làm:

1/Bạn dùng Crlt+click chuột trái để chọn cả dòng (khi chọn đúng thì sẽ có dấu chọn hết cả dòng). Muốn insert đến đâu thì chọn đến đó
2/Ấn nút ctrl + + (dấu cộng) để tăng hàng.

Bạn thử xem. Tuy nhiên, cách của Bình thi pro hơn :lily:
 
Sửa lần cuối:
T

thanhphuongha

Trung cấp
21/10/06
60
0
6
40
TP HCM
Em làm sổ tiền mặt đó,những con số đó là 511,em fải để trống 1 dòng để định khoản 3331.em làm theo cách của anh chị sao không ra được như vậy?
1111

2222

3333

4444

5555

6666

Mong trả lời giúp em
Công ty em xuất nhiều mà sếp không duyệt mua fần mềm,em thì mới ra trường.Thật là khổ.
 
hoaanh2912

hoaanh2912

If life is so short
12/12/05
293
0
16
42
Hà Nội
bạn thử làm lại xem, tớ làm được rồi. Cảm ơn anh Bình.
 
T

thanhphuongha

Trung cấp
21/10/06
60
0
6
40
TP HCM
gì kì vậy?Hoaanh2912 chỉ lại kỹ giúp mình đi
 
V

vongphuc

Excel Fans Club
11/8/04
300
5
18
Ha Noi
Anh Virgin không hiểu bạn ý làm gì rồi. Ở đây bạn thanhphuongha đang xử lý tách dữ liệu từ sổ tiền mặt. Hồi trước anh erpvn học được cái này mừng quá ghi lại một bài để đánh dấu thành một phát minh lớn đấy. Thực ra nó là một phương pháp có từ lâu và phổ biến nhất là đối với các kế toán làm thủ công với các hình thức kế toán có sổ nhật ký. Đơn giản chỉ là để tách số liệu từ các dòng chuyển sang các cột có số tài khoản tương ứng

Việc thao tác trên các sổ nghiệp vụ thì các bạn kế toán làm hàng ngày đã quen rồi, tùy mỗi bạn có thể có cách làm khác nhau. Ở đây chỉ nêu lên vấn đề đánh số cách dòng là ở các phiên bản Office cũ trước đây không làm được. Đến Office 2000 và 2003 thì việc này làm được rồi không tin bạn thử làm xem. Thông thường bạn nên đánh số trước rồi hãy nhập liệu

Nếu trên sổ của bạn đã có dữ liệu sẵn, bây giờ cần insert các dòng trắng thì bạn có thể làm theo hướng dẫn của Nguyên Bình hoặc Tuanktcdcn trước đây (tớ không nhớ là ở bài nào). Tuy nhiên nếu làm 1 cái macro thì nó rất đơn giản mà lại hiệu quả khi bạn cần tạo luôn công thức trên dòng dữ liệu mới chèn

Nhân đây mình bổ xung trong trường hợp làm như bạn thì có một thao tác gọi là "Nhân bản giá trị" rất hữu ích. Nó được làm từ các thao tác sau:
- Đánh dấu vùng dữ liệu cần nhân bản sao cho ô đầu tiên là ô đầu tiên cần nhân bản
- Nhấn = và lấy giá trị của ô bên dưới
- Nhấn Ctrl + Enter
Vậy là dữ liệu được lấp đầy vào các ô trống và mỗi định khoản đều có số chứng từ, ngày tháng, diễn giải, ... đi kèm rất thuận lợi khi ta lọc dữ liệu để làm các sổ kế toán chi tiết
 
B

Bình_OverAC

Over Abnormal / Crazy
14/5/04
846
10
18
42
Nha Trang
Xem ra mọi chuyện ngày càng trở nên phức tạp. thanhphuongha. Nếu được bạn hãy gởi file cho tôi, tôi sẽ giúp bạn thực hiện theo ý bạn muốn.
 
Sửa lần cuối bởi điều hành viên:
T

thanhphuongha

Trung cấp
21/10/06
60
0
6
40
TP HCM
cam ơn anh Nguyên bình
Em sẽ email cho anh
 
B

Bình_OverAC

Over Abnormal / Crazy
14/5/04
846
10
18
42
Nha Trang
Sau khi nhân được file của bạn tôi đã hiểu vấn đề của bạn.
Trong 3 cách mà tôi nói với bạn ở trên thì cách thứ 2 là dùng hàm Offset.
Tôi đính kèm file dùng hàm offset hy vọng nó giúp bạn hiểu.
ý nghĩa của hàm Offset: lấy giá trị của một ô hoặc một vùng dử liệu tính từ ô tham chiếu đến số tới một số lượng cột, số lượng hàng cách ô tham chiếu và ố lượng hàng, cột của vùng.

Cấu trúc hàm Offset:
Offset(reference, rows,cols,height, width)

Reference: địa chỉ ô tham chiêu
Rows: số dòng cách ô tham chiếu
Cols: số cột cách ô tham chiếu
height: số dòng của vùng dữ liệu sẽ lấy
width: số cột của vùng dữ liệu sẽ lấy

height và width sẽ bị bỏ qua nếu bạn chỉ muốn lấy giá trị của 1 ô chứ không phải 1 vùng nhiều hơn 1 ô.
 

Đính kèm

  • vi du ham offset.zip
    229.4 KB · Lượt xem: 752
T

thanhphuongha

Trung cấp
21/10/06
60
0
6
40
TP HCM
Cảm ơn anh Bình_OverAC nha!Em đã hiểu rồi.
 
P

phuongviettel

Guest
bạn tham khảo thử

Bạn có thể viết một macro để thực hiện rất dễ dàng sau đây là một ví dụ: bạn chỉ cần chèn một module và paste vào là có thể sử dụng được:
Ví dụ:
Trước khi chạy macro ta có table:
Name Address Telephone
Nguyen Van A x 54584854
Nguyen Van B y 54584854
Nguyen Van c z 54584854

sau khi chạy macro ta có table:
Name Address Telephone
Nguyen Van A x 54584854

Nguyen Van B y 54584854

Nguyen Van c z 54584854

Trong macro này hàng đầu tiên không insert, bạn có thể sửa lại theo ý mình

Nếu bạn cần chèn càng nhiều hàng thì bạn có thể thay đổi biến counter lớn hơn.

Sub InsertRow()
Dim i As Integer
Dim counter As Integer
counter = 500
'----------Insert row---------------------------
For i = 3 To counter Step 2
Rows(i).Select
Selection.Insert Shift:=xlDown
Next i
End Sub
Không hiểu mình trình bày nhw thế có đúng ý bạn cần không?
:bigok:
 
QDuc

QDuc

Cao cấp
3/6/06
254
18
18
Biển khơi
Một cách nữa để thêm nguồn tham khảo:

Option Explicit
Sub AddRows()
Dim lJ As Long, lZ As Long
lJ = Range("A65432").End(xlUp).Row
For lZ = lJ To 3 Step -1
Rows(lZ & ":" & lZ).Insert shift:=xlDown
Next
End Sub
:angel: :alcon:
 
H

HIENTH

Guest
24/9/07
3
0
0
TP. HCM
các bạn có thể làm như sau: giữ phím ctrl roi chọn từng dòng sau do phải chuột chon insert tự đông nó sẽ chèn thêm dòng xen ke cho các bạn
 
H

HIENTH

Guest
24/9/07
3
0
0
TP. HCM
bạn giữ ctrl chọn từng dòng sau do phai chuot chon insert thi luc do se co tung dong xen ke sau du lieu cua ban. Chuc ban thanh cong!
 
Camnhung03

Camnhung03

Guest
29/5/15
6
0
1
32
em muốn lập excel để tính giá thàng sản phẩm in ấn túi , nhẫn tờ rới... bác nào chỉ em được không ạ
 

Xem nhiều

Webketoan Zalo OA