Cách lập đầy các ô dưới theo ô trên????

The End · 27/2/09

Các bác ơi! E muốn hỏi chút về cách lấp đầy các ô trống
Ví dụ như ô A1=1; ô A4=2; ô A8=3. Bjờ e muốn các ô A2:A3 = 1 jống như ô A1, A5:A7 = 2 jống ô A2; A9:A10=3 jống ô A8…… Ngoài cách kéo copy cột như vậy, liệu có cách nào để em lấp đầy các ô trong theo gtrị mình muốn kô ạh?

trong excel.
VDụ:
Cột
A1 = 1
A2
A3
A4 = 2
A5
A6
A7
A8 = 3
A9
A10
Em muốn thành như này:
A1 = 1
A2 =1
A3 = 1
A4 = 2
A5 = 2
A6 = 2
A7 = 2
A8 = 3
A9 = 3
A10 = 3
Các bác júp em mới! Thanks!!!

ChanhTQ@ · 27/2/09

Gởi bạn macro để chỉ thêm tham khảo

PHP:

Sub DienSo()
 Dim lRw As Long, eRw As Long:          Dim Rng As Range
 
 lRw = [a65500].End(xlUp).Row
 Set Rng = [a1]
 Do
    If Rng.Row >= lRw Then Exit Do
    eRw = Range(Rng, Rng.End(xlDown)).Rows.Count - 1
    Rng.Resize(eRw).Value = Rng.Value
    Set Rng = Rng.Offset(eRw)
 Loop
End Sub

ndu96081631 · 27/2/09

The End đã viết:
Các bác ơi! E muốn hỏi chút về cách lấp đầy các ô trống
Ví dụ như ô A1=1; ô A4=2; ô A8=3. Bjờ e muốn các ô A2:A3 = 1 jống như ô A1, A5:A7 = 2 jống ô A2; A9:A10=3 jống ô A8…… Ngoài cách kéo copy cột như vậy, liệu có cách nào để em lấp đầy các ô trong theo gtrị mình muốn kô ạh?

trong excel.
VDụ:
Cột
A1 = 1
A2
A3
A4 = 2
A5
A6
A7
A8 = 3
A9
A10
Em muốn thành như này:
A1 = 1
A2 =1
A3 = 1
A4 = 2
A5 = 2
A6 = 2
A7 = 2
A8 = 3
A9 = 3
A10 = 3
Các bác júp em mới! Thanks!!!

Bài này có nhiều cách làm:
1> Dùng VBA, bấm cái rẹt nó ra ngay
2> Dùng công thức với 1 tí kỹ xảo
Ở đây tôi hướng dẩn bạn cách dùng công thức phối hợp với AutoFilter nhé
- Đầu tiên bạn tạo 1 tiêu đề cho dử liệu (nếu dử liệu chưa có tiêu đề) ---> Giã sử sau khi tạo tiêu đề xong, dử liệu của bạn nằm từ A1:A15 (với A1 là tiêu đề cột)
- Quét chọn vùng A1:A15, vào menu Data, chọn Filter\AutoFilter
- Bấm mũi tên xổ xuống của AutoFilter, chọn Blanks
- Nhìn xem cell đầu tiên sau khi Filter có địa chỉ cell là gì ---> Tôi giã sử cell đầu này sau khi filter là A3 ---> Bạn chọn vào cell A3 này và gõ công thức =A2 ---> Kéo fill xuống đến cuối
- Chọn mũi tên xổ xuống của AutoFilter, chọn All
- Vào menu Data, chọn Filter\AutoFilter lần nữa
===> Vậy là xong!
Xem file

salam · 27/2/09

Bạn dùng CT dưới xem.

Mã:

=IF(A1="",LOOKUP(2,1/(1-ISBLANK($A$1:A1)),$A$1:A1),A1)

ndu96081631 · 27/2/09

ChanhTQ@ đã viết:

PHP:

Sub DienSo()
 Dim lRw As Long, eRw As Long:          Dim Rng As Range
 
 lRw = [a65500].End(xlUp).Row
 Set Rng = [a1]
 Do
    If Rng.Row >= lRw Then Exit Do
    eRw = Range(Rng, Rng.End(xlDown)).Rows.Count - 1
    Rng.Resize(eRw).Value = Rng.Value
    Set Rng = Rng.Offset(eRw)
 Loop
End Sub

Em cũng có 1 cách khác (số lần quét bằng với sư phụ)

PHP:

Sub FillBlanks()
  Dim i As Long
  With Range([A1], [A65536].End(xlUp)).SpecialCells(4)
    For i = .Areas.Count To 1 Step -1
      .Areas(i).Value = .Areas(i).Offset(-1).Resize(1).Value
    Next i
  End With
End Sub

volga · 27/2/09

salam đã viết:
Bạn dùng CT dưới xem.

Mã:

=IF(A1="",LOOKUP(2,1/(1-ISBLANK($A$1:A1)),$A$1:A1),A1)

Anh thử kem thêm bài mẫu .Không biết cách áp dụng cụ thể anh à +-+-+-+

.
Anh thường áp dụng những công thức độc hay .Nhưng muốn áp dụng nó thì tụi em bó tay!
Thanks!

solomon2211 · 27/2/09

Bạn có thể dùng cột phụ để làm, như sau:

1. Tại ô B1 nhập = A1
2. Tại ô B2 nhập = IF(A2<>"",A2,B1)
3. Copy ô B2 rồi dán cho đến dòng cuối cùng của cột A
4. Chọn từ ô B1 đến ô cuối cùng của cột B, Copy rồi chọn ô A1, dán Special Value.
5. Xóa cột B

Xong!

Cách này tôi cũng thường làm đối với bảng tính như dưới đây:

Thành phẩm A NVL1
NVL2
NVL3
...
Kết quả:

Thành phẩm A NVL1
Thành phẩm A NVL2
Thành phẩm A NVL3
....

ndu96081631 · 27/2/09

volga đã viết:
Anh thử kem thêm bài mẫu .Không biết cách áp dụng cụ thể anh à .
Anh thường áp dụng những công thức độc hay .Nhưng muốn áp dụng nó thì tụi em bó tay!
Thanks!

Tức là thế này: Gõ công thức của Salam vào 1 cột phụ (cột B chẳng hạn)
Nhưng nếu là cột phụ thì vầy cho gọn:
Tại B2, gõ công thức =IF(A2="",B1,A2)

tongquangtuyen · 27/2/09

Bạn có thể làm theo cách sau :
-Đánh dấu khối ô cần lấp đầy số
- Bấm F5
- Chọn Special-chọn Blanks sau đó
- Tại ô A2 bạn gõ bằng A1 rồi bấm Ctr + Enter

salam · 27/2/09

volga đã viết:
Anh thử kem thêm bài mẫu .Không biết cách áp dụng cụ thể anh à .
Anh thường áp dụng những công thức độc hay .Nhưng muốn áp dụng nó thì tụi em bó tay!
Thanks!

Mình gửi file kèm dưới:

ndu96081631 · 27/2/09

tongquangtuyen đã viết:
Bạn có thể làm theo cách sau :
-Đánh dấu khối ô cần lấp đầy số
- Bấm F5
- Chọn Special-chọn Blanks sau đó
- Tại ô A2 bạn gõ bằng A1 rồi bấm Ctr + Enter

Bạn đã thử chưa? Tôi không nghĩ cách này thành công đâu!

thiennx · 27/2/09

Cách ấn F5 rồi chọn special -> blank là dùng được đấy, đơn giản, mà lại đáp ứng yêu cầu.mình đã thử rồi. Mình cũng có bảng tính mà phải điền đầy như thế. nó có khoảng 2000 dòng, và chỉ cần vài thao tác là điền đầy đảm bảo yêu cầu của mình.

ndu96081631 · 27/2/09

thiennx đã viết:
Cách ấn F5 rồi chọn special -> blank là dùng được đấy, đơn giản, mà lại đáp ứng yêu cầu.mình đã thử rồi. Mình cũng có bảng tính mà phải điền đầy như thế. nó có khoảng 2000 dòng, và chỉ cần vài thao tác là điền đầy đảm bảo yêu cầu của mình.

Bạn vui lòng đưa 1 đoạn ví dụ lên xem thử (cách bạn đang dùng Specials) ---> Chứ tôi bó tay rồi ---> Không tài nào làm được!
Hay tôi đính kèm file đây, bạn fill dùm tôi bằng cách F5\special xem thử
+-+-+-+

rollover79 · 27/2/09

ndu96081631 đã viết:
Bạn vui lòng đưa 1 đoạn ví dụ lên xem thử (cách bạn đang dùng Specials) ---> Chứ tôi bó tay rồi ---> Không tài nào làm được!
Hay tôi đính kèm file đây, bạn fill dùm tôi bằng cách F5\special xem thử

Với file của ndu thì làm như sau:
1. Chọn vùng A1:A11
2. Nhấn F5 -> Special ->Blank ->OK
3. Click lên thanh Formula gõ vào =A1
4. Nhấn Ctrl+Enter

The End · 27/2/09

ndu96081631 đã viết:
Bạn vui lòng đưa 1 đoạn ví dụ lên xem thử (cách bạn đang dùng Specials) ---> Chứ tôi bó tay rồi ---> Không tài nào làm được!
Hay tôi đính kèm file đây, bạn fill dùm tôi bằng cách F5\special xem thử

Bác ơi cách này em làm đc đấy bác ạh! Xin chân thành cám ơn các bác rất nhiều. Rất hữu ích đối với em. Có mấy cái jì mà dùng VB khó quá, em chưa bao jờ tiếp xúc nên lúng túng kô biết làm như nào :d Cám ơn các Bác nhiều nhé! May quá :d /-*+/

ndu96081631 · 27/2/09

rollover79 đã viết:
Với file của ndu thì làm như sau:
1. Chọn vùng A1:A11
2. Nhấn F5 -> Special ->Blank ->OK
3. Click lên thanh Formula gõ vào =A1
4. Nhấn Ctrl+Enter

Thì ra là Ctrl + Enter (trước giờ chưa hề biết vụ này) ---> Cứ Ctrl + Shift + Enter ---> Không tài nào ra được!
Cảm ơn bạn!

volga · 27/2/09

Câu Hỏi

ndu96081631 đã viết:
Thì ra là Ctrl + Enter (trước giờ chưa hề biết vụ này) ---> Cứ Ctrl + Shift + Enter ---> Không tài nào ra được!
Cảm ơn bạn!

Thủ thuật nhập liệu nhanh ,gióng Alt + Mủi tên .
Ctrl + Enter có luôn tác dụng khi nhập hàng ngang .( Nhiều hàng nhiều cột một lúc luôn !).
Sống lâu năm với máy tính mới biết cái này nhe !!!!
Thanks!

Lạ một nổi là không biết theo nguyên tắc nào ?Mà nó cho ra kết quả như thế các anh ?

Cách lập đầy các ô dưới theo ô trên????

Thành viên mới

0901452không62

Huyền thoại GPE

File đính kèm

Thành viên gắn bó

Huyền thoại GPE

Thành viên tiêu biểu

Thành viên tích cực

Huyền thoại GPE

Thành viên hoạt động

Thành viên gắn bó

File đính kèm

Huyền thoại GPE

Thành viên chính thức

Huyền thoại GPE

File đính kèm

Thành viên tiêu biểu

Thành viên mới

Huyền thoại GPE

Thành viên tiêu biểu

Đếm ngược thời gian