Xin code Copy nhanh công thức từ 1 cell ra toàn bộ column (1 người xem)

[nhs243]

Chào các anh chị, em đang cần copy công thức từ 1 cell ra toàn bộ column của nó,
xin hỏi cách copy nhanh công thức từ cell D1 ra tất cả các cell trong column D?
Cụ thể, em có 1 công thức ở D1 , em muốn copy từ D1 ra đến D2000 (số liệu tính của em có khoảng 2000 dòng), nếu làm thủ công bằng AutoFill thì mỗi lần làm công thức sẽ phải kéo đến 2000 dòng thậm chí còn nhiều dòng hơn nữa thì rất khó. bác nào cho em xin code copy nhanh với.
Em xin cảm ơn!

 

[vu_tuan_manh_linh]

Tôi chỉ cần đặt chuột vào D1, sau đó bấm tổ hợp phím Ctrl + Shift + End thì tự nó chọn toàn bộ vùng từ D1 đến dòng cuối cùng của bảng tính, sau đó Ctrl + D nữa là xong.

 

[ndu96081631]

Chào các anh chị, em đang cần copy công thức từ 1 cell ra toàn bộ column của nó,
xin hỏi cách copy nhanh công thức từ cell D1 ra tất cả các cell trong column D?
Cụ thể, em có 1 công thức ở D1 , em muốn copy từ D1 ra đến D2000 (số liệu tính của em có khoảng 2000 dòng), nếu làm thủ công bằng AutoFill thì mỗi lần làm công thức sẽ phải kéo đến 2000 dòng thậm chí còn nhiều dòng hơn nữa thì rất khó. bác nào cho em xin code copy nhanh với.
Em xin cảm ơn!

Thử vầy xem:

Range("D1:D2000").Value = Range("D1").FormulaR1C1

 

[nhs243]

Ctrl + Shift + End nó sẽ lấy toàn bộ vùng từ D1 xuống cuối, nhưng nó lan luôn ra tận các vùng kế tiếp là F, G, H... bác ạ. Em cũng đã thử cách này nhưng nó bị thế.

 

[nhs243]

Thử vầy xem:

Range("D1:D2000").Value = Range("D1").FormulaR1C1

Bác có thể cho code VBA đầy đủ được không? Em newbie nên không rành về code lắm, dùng nguyên code này thì không thấy ra kết quả?

 

[Kiều Mạnh]

Xin phép NDu96081631 nhờ code làm dùm cho bạn í nhs243
chép code này vào module , sửa lại tên sheet1 đúng với tên sheet cần thực hiện và chạy code

Sub newbie()
    Sheet1.Range("D1:D2000").Value = Range("D1").FormulaR1C1
End Sub

 

[Hau151978]

Ctrl + Shift + End nó sẽ lấy toàn bộ vùng từ D1 xuống cuối, nhưng nó lan luôn ra tận các vùng kế tiếp là F, G, H... bác ạ. Em cũng đã thử cách này nhưng nó bị thế.

Bạn nhập vào name box (bên trái thanh công thức) D12000, bấm Enter để chọn khối ô rồi bấm Ctrl-D.

 

[Quang_Hải]

Xin phép NDu96081631 nhờ code làm dùm cho bạn í nhs243
chép code này vào module , sửa lại tên sheet1 đúng với tên sheet cần thực hiện và chạy code

Sub newbie()
    Sheet1.Range("D1:D2000").Value = Range("D1").FormulaR1C1
End Sub

Vế trước sao tự nhiên lòi ra cái Sheet1 nhưng vế sau thì không có

 

[Kiều Mạnh]

Vế trước sao tự nhiên lòi ra cái Sheet1 nhưng vế sau thì không có

Chạy tốt Anh. ý người ta copy cells D1 xuống thành 2000 dòng y trang như vậy . em test rồi

 

[Quang_Hải]

Chạy tốt Anh. ý người ta copy cells D1 xuống thành 2000 dòng y trang như vậy . em test rồi

Biết là chạy được, nhưng viết code như vậy thì hơi kỳ kỳ.

 

[Kiều Mạnh]

Biết là chạy được, nhưng viết code như vậy thì hơi kỳ kỳ.

Ok Em hiểu rồi . Em đang tập tành code mà

 

[Quang_Hải]

Xin phép NDu96081631 nhờ code làm dùm cho bạn í nhs243
chép code này vào module , sửa lại tên sheet1 đúng với tên sheet cần thực hiện và chạy code

Sub newbie()
    Sheet1.Range("D1:D2000").Value = Range("D1").FormulaR1C1
End Sub

Hay là thử thế này chắc cũng được

Sub fill()
[D1:D2000].FillDown
End Sub

 

[nhs243]

Cám ơn các bác, em đã làm được bằng code VBA rồi.
Các bác có thể giúp em code chuyển hết số liệu đã tính được sang sheet 2 để tiện sử dụng được không? Bình thường em copy hết cột kết quả đó, tức là cả cột D, sau đó chỉ paste kết quả sang sheet 2 ở bên cạnh. Em chỉ paste values chứ không paste formulas.

 

[nhs243]

Hay là thử thế này chắc cũng được

Sub fill()
[D1:D2000].FillDown
End Sub

Thanks bác, code này em cũng vừa thử thành công.

 

[vu_tuan_manh_linh]

Ctrl + Shift + End nó sẽ lấy toàn bộ vùng từ D1 xuống cuối, nhưng nó lan luôn ra tận các vùng kế tiếp là F, G, H... bác ạ. Em cũng đã thử cách này nhưng nó bị thế.

Nếu dữ liệu của bạn có cột D là cuối cùng thì Ok. Nếu cột D chưa phải là cuối cùng thì sau khi bấm Ctrl + Shift + End, bấm giữ phím Shift và bấm mũi tên trái để rút dần vùng chọn về cột D. Tôi nghĩ cũng không mất quá nhiều thời gian của bạn. Thay vì phải hí hoáy các giải pháp khác, dùng sẵn những tiện ích của excel có hơn không!!! (Xin lỗi, tôi không có ý mạo phạm các thành viên đang viết code giúp đỡ chủ topics). Tôi thao tác với 5000 dòng, 40 cột nhưng cũng chỉ 5s là xong!!

 

[VetMini]

Nếu dữ liệu của bạn có cột D là cuối cùng thì Ok. Nếu cột D chưa phải là cuối cùng thì sau khi bấm Ctrl + Shift + End, bấm giữ phím Shift và bấm mũi tên trái để rút dần vùng chọn về cột D. Tôi nghĩ cũng không mất quá nhiều thời gian của bạn. Thay vì phải hí hoáy các giải pháp khác, dùng sẵn những tiện ích của excel có hơn không!!! (Xin lỗi, tôi không có ý mạo phạm các thành viên đang viết code giúp đỡ chủ topics). Tôi thao tác với 5000 dòng, 40 cột nhưng cũng chỉ 5s là xong!!

Theo kinh nghiệm của tôi thì bạn phí lời vô ích. Hầu hết người trên diễn đàn này thích code cho nó "chuyên nghiệp".
Tôi nhớ hồi tôi mới học Excel, thấy người ta trỏ tới trỏ lui trên dữ liệu mình lác cả mắt. Nhưng bây giờ thời buổi khác rồi, người ta cho rằng bấm nút chạy code, từ đầu đến cuối không hề click vào ô dòng/cột dữ liệu nào mới là ngon.

 

[Quang_Hải]

Thật ra bài này chỉ cần Ctrl G, nhập vào ô reference D12000 chọn ok, rồi bấm Ctrl D là xong
Chẳng hiểu sao chủ thớt lại muốn code! Cũng có thể là đã giỏi những cái cơ bản rồi nên muốn thử cái mới hỏng chừng

 

[Kiều Mạnh]

Nếu dữ liệu của bạn có cột D là cuối cùng thì Ok. Nếu cột D chưa phải là cuối cùng thì sau khi bấm Ctrl + Shift + End, bấm giữ phím Shift và bấm mũi tên trái để rút dần vùng chọn về cột D. Tôi nghĩ cũng không mất quá nhiều thời gian của bạn. Thay vì phải hí hoáy các giải pháp khác, dùng sẵn những tiện ích của excel có hơn không!!! (Xin lỗi, tôi không có ý mạo phạm các thành viên đang viết code giúp đỡ chủ topics). Tôi thao tác với 5000 dòng, 40 cột nhưng cũng chỉ 5s là xong!!

Theo tôi nghĩ là họ thích đó bạn. ngay tôi nhiều khi sử dụng hàm cũng được nhưng tôi lại cứ thích viết code ... vì tôi đang tập viết code mà

 

[nhs243]

Theo kinh nghiệm của tôi thì bạn phí lời vô ích. Hầu hết người trên diễn đàn này thích code cho nó "chuyên nghiệp".
Tôi nhớ hồi tôi mới học Excel, thấy người ta trỏ tới trỏ lui trên dữ liệu mình lác cả mắt. Nhưng bây giờ thời buổi khác rồi, người ta cho rằng bấm nút chạy code, từ đầu đến cuối không hề click vào ô dòng/cột dữ liệu nào mới là ngon.

Với người mới như em thì chỉ cần hiệu quả và nhanh là được, chứ nhiều lúc code cũng khó thao tác, mà nhỡ sai 1 tý cũng khó sửa bác ạ.
Thanks các bác

 

[VetMini]

Theo tôi nghĩ là họ thích đó bạn. ngay tôi nhiều khi sử dụng hàm cũng được nhưng tôi lại cứ thích viết code ... vì tôi đang tập viết code mà

Ngược lại, tôi đang học những thủ thuật để không cần phải viết code.

Nhiều người nghĩ viết code nhanh chứ tôi mỗi lẩn dùng code lại phải copy cái sheet để giành đó. Chạy xong thấy được rồi mới xoá cái sheet copy.
Lý do phải copy sheet: lỡ ra không đúng thì đâu còn dữ liệu dể debug? Thủ tục sẽ là Export code ra file bas, close file Excel không save. Mở lên trở lại, import code, debug.

 

[Kiều Mạnh]

Ngược lại, tôi đang học những thủ thuật để không cần phải viết code.

Nhiều người nghĩ viết code nhanh chứ tôi mỗi lẩn dùng code lại phải copy cái sheet để giành đó. Chạy xong thấy được rồi mới xoá cái sheet copy.
Lý do phải copy sheet: lỡ ra không đúng thì đâu còn dữ liệu dể debug? Thủ tục sẽ là Export code ra file bas, close file Excel không save. Mở lên trở lại, import code, debug.

thì cũng tuỳ sở thích của từng người thôi bạn ... miễm sao mình cảm thấy thích và thoải mái là tốt rồi
Hồi đầu mình mới tập viết code ... vàng , đỏ code diết ... mặt nhăn nhăn..khi viết chạy thấy đúng ý được một cái đột nhiên phì cười sặc sặc ... vợ mình đang ngủ tĩnh giấc ngóc đầu
đầu dậy keo Anh bị sao vậy....biết trả lời sao .... mê code kít mà

 

[nhs243]

Em là nghiệp dư thôi, học được thủ thuật nào hay để áp dụng cho công việc nó nhanh hơn thôi. Thực ra code rất có ích trong trường hợp muốn copy nhiều cột không liên tục. Em đã áp dụng thử với D22000, E2:E1000, H2:H250. Trường hợp này chỉ cần code chạy là xong. Nếu thủ thuật thì phải làm lần lượt. Cái nào cũng có ưu điểm của nó