Copy Công Thức Bằng VBA - Mạng Xã Hội Webketoan

Menu Menu Đăng nhập Đăng ký Tắt quảng cáo Menu Install the app Cài đặt

• Trang chủ
• Diễn đàn Bài viết mới
• Có gì mới Bài viết mới New resources Hoạt động mới nhất
• Resources Latest reviews

• Kế toán Căn bản thực chiến về Logistic/Forwarder
• Kế toán Căn Bản F&B " 2 buổi online - tự tin bước vào nghề!

Copy công thức bằng VBA

• Thread starter nhathuyha
• Ngày gửi 14/12/16

• Diễn đàn
• THÔNG TIN CẦN BIẾT VÀ HỎI ĐÁP NGHIỆP VỤ
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. N

nhathuyha

Guest

30/11/16 16 0 1 33 Hi mọi người. Mình có bài toán đơn giản cần được giúp đỡ. Sheet 1 có cột A gồm dữ liệu số thứ tự : từ 1 2 3 ... đến m (với n là số bất kì) Sheet 2 có A1 đã có công thức sẵn. Bây giờ mình muốn copy công thức của A1 cho A2 A3 A4 .....đến Am Bạn nào có thể giúp mình được ko? N

nguoiconxunui

Khách vãng lai

29/6/04 1,280 215 63 Bình Định aso2pc.co.cc

nhathuyha nói: Hi mọi người. Mình có bài toán đơn giản cần được giúp đỡ. Sheet 1 có cột A gồm dữ liệu số thứ tự : từ 1 2 3 ... đến m (với n là số bất kì) Sheet 2 có A1 đã có công thức sẵn. Bây giờ mình muốn copy công thức của A1 cho A2 A3 A4 .....đến Am Bạn nào có thể giúp mình được ko? Nhấn để mở rộng...

PHP: Worksheets("Sheet1").Range("A1:A10").FillDown Toggle signature Nói ít làm nhiều Lặng lẽ kiếm tiền-lặng lẽ tiêu Đời là bể khổ, vượt qua bể khổ gọi là qua đời!

• 

Reactions: nhathuyha N

nhathuyha

Guest

30/11/16 16 0 1 33 vùng này không xác định là 10 bạn.. nó ngẫu nhiên mà. với lại sheet 2 mới là sheet cần copy từ A1 đến Am

thinhvd

Cao cấp

25/11/09 1,336 234 63 Hà Nội bluesofts.net

nhathuyha nói: Hi mọi người. Mình có bài toán đơn giản cần được giúp đỡ. Sheet 1 có cột A gồm dữ liệu số thứ tự : từ 1 2 3 ... đến m (với n là số bất kì) Sheet 2 có A1 đã có công thức sẵn. Bây giờ mình muốn copy công thức của A1 cho A2 A3 A4 .....đến Am Bạn nào có thể giúp mình được ko? Nhấn để mở rộng...

Phần này không có file cụ thể nên cũng hơi khó. Sheets 1 thì bạn phải tìm dòng cuối cùng bằng cách: dongcuoi = Sheets("Sheet1").Range("A" & rows.count).End(xlup).row Sang Sheet 2 bạn đặt công thức sẵn thì bạn sẽ chạy vòng lặp: For i = 1 to dongcuoi và gán worksheetfunction theo công thức đã đặt Toggle signature https://www.facebook.com/groups/hocexcel Excel & VBA & SQL trong Excel Mobile+Zalo: 038 6961 334

• 

Reactions: nhathuyha H

HoàngAnhPhong

Báo cáo động chuyên nghiệp

21/5/16 12 4 3 34 Hà Nội www.blogger.com

nhathuyha nói: Hi mọi người. Mình có bài toán đơn giản cần được giúp đỡ. Sheet 1 có cột A gồm dữ liệu số thứ tự : từ 1 2 3 ... đến m (với n là số bất kì) Sheet 2 có A1 đã có công thức sẵn. Bây giờ mình muốn copy công thức của A1 cho A2 A3 A4 .....đến Am Bạn nào có thể giúp mình được ko? Nhấn để mở rộng...

Bạn thử code này xem nhé: Sub CopyCongThuc() Dim i As Long i = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row Range("a2").Copy (Sheets("Sheet2").Range("a3:a" & i)) MsgBox "Da copy " & i - 3 & " dòng" End Sub

• 

Reactions: nhathuyha

bms360

Thiết kế file excel theo nhu cầu cá nhân

2/7/15 141 42 28 35 Cần Thơ www.thegioiexcel.com

nhathuyha nói: Hi mọi người. Mình có bài toán đơn giản cần được giúp đỡ. Sheet 1 có cột A gồm dữ liệu số thứ tự : từ 1 2 3 ... đến m (với n là số bất kì) Sheet 2 có A1 đã có công thức sẵn. Bây giờ mình muốn copy công thức của A1 cho A2 A3 A4 .....đến Am Bạn nào có thể giúp mình được ko? Nhấn để mở rộng...

Cách tự động copy công thức xuống tới dòng tùy chọn thì bạn cũng ko cần phải dùng VBA code chi cho nó mệt. Excel từ 2010 trở lên có hổ trợ tính năng Table design -> ví dụ bạn add 1 table 1000 dòng thì bạn chỉ cần gõ công thức dòng đầu tiên thì tự động excel copy công thức xuống hết 1000 dòng tương ứng. Hy vọng giúp ít cho bạn Toggle signature Quách Đạt - 0939.339.836 Zalo - 0939.339.836 Email - quachdat89@gmail.com Ở đợ tại - http://www.thegioiexcel.com Cung cấp giải pháp quản lý số liệu kinh doanh đa ngành nghề chỉ bằng Excel

• 

Reactions: nhathuyha N

nhathuyha

Guest

30/11/16 16 0 1 33

HoàngAnhPhong nói: Bạn thử code này xem nhé: Sub CopyCongThuc() Dim i As Long i = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row Range("a2").Copy (Sheets("Sheet2").Range("a3:a" & i)) MsgBox "Da copy " & i - 3 & " dòng" End Sub Nhấn để mở rộng...

Hi bạn mình đã làm được rồi..nhưng phải sửa code thành thế này i = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row .Range("A1").Copy .Sheets("Sheet2")Range("A2:A" & i).PasteSpecial Với lại dữ liệu của mình đôi khi đến cả 100.000 dữ liệu.. bạn nào biết vì sao hàm biến "i" nó không thể đếm hết được mà luôn báo lỗi "Run time Error 6 Over flow" ?? có phải vì dữ liệu quá nhiều không N

nhathuyha

Guest

30/11/16 16 0 1 33 mình có tải file lên.. Các bạn vào sheet 2 kích vào phân tích dữ liệu.. nó hiện lên 1 cái bảng.. Bạn chọn vào tách dữ liệu thì bên sheet "Data" từ cột V đến cột AA nó sẽ tự động copy xuống... nhưng không hiểu vì sao nó báo lỗi Error 6.. nếu dữ liệu nhỏ thì làm đc.. còn nhiều quá thì không ??

Đính kèm

• Phan tich EU buoc 1.xls 5.7 MB · Lượt xem: 121

N

nguoiconxunui

Khách vãng lai

29/6/04 1,280 215 63 Bình Định aso2pc.co.cc

nhathuyha nói: mình có tải file lên.. Các bạn vào sheet 2 kích vào phân tích dữ liệu.. nó hiện lên 1 cái bảng.. Bạn chọn vào tách dữ liệu thì bên sheet "Data" từ cột V đến cột AA nó sẽ tự động copy xuống... nhưng không hiểu vì sao nó báo lỗi Error 6.. nếu dữ liệu nhỏ thì làm đc.. còn nhiều quá thì không ?? Nhấn để mở rộng...

Bạn định nghĩa nó là Integer , cái này nó lớn nhất có mấy chục ngàn thôi. Kiếm số lớn hơn đi, ví dụ Long Toggle signature Nói ít làm nhiều Lặng lẽ kiếm tiền-lặng lẽ tiêu Đời là bể khổ, vượt qua bể khổ gọi là qua đời!

• 

Reactions: nhathuyha N

nhathuyha

Guest

30/11/16 16 0 1 33

nguoiconxunui nói: Bạn định nghĩa nó là Integer , cái này nó lớn nhất có mấy chục ngàn thôi. Kiếm số lớn hơn đi, ví dụ Long Nhấn để mở rộng...

Ok bạn.. mình đã làm được thành công.. Cảm ơn bạn nhiều nhé N

nguoiconxunui

Khách vãng lai

29/6/04 1,280 215 63 Bình Định aso2pc.co.cc

nhathuyha nói: Ok bạn.. mình đã làm được thành công.. Cảm ơn bạn nhiều nhé Nhấn để mở rộng...

You are welcome. Toggle signature Nói ít làm nhiều Lặng lẽ kiếm tiền-lặng lẽ tiêu Đời là bể khổ, vượt qua bể khổ gọi là qua đời! Bạn phải đăng nhập hoặc đăng ký để bình luận. Chia sẻ: Facebook Email Chia sẻ Link

Xem nhiều

• M Thi tuyển công chức thuế năm 2012!
  • Started by MINA
  • 5/5/12
  • Lượt xem: 8,756,232
  Phát triển bản thân
• M Thi công chức hải quan!
  • Started by meomalem
  • 2/5/10
  • Lượt xem: 3,408,242
  Phát triển bản thân
• T Lập nhóm ôn thi công chức bhxh 2013
  • Started by truongvucanh
  • 29/3/13
  • Lượt xem: 2,991,784
  Phát triển bản thân
• M Tổng hợp các nội dung liên quan đến việc thi tuyển vào ngân hàng!
  • Started by mechipchip
  • 18/7/06
  • Lượt xem: 2,909,856
  Chế độ kế toán khác
• J Thi tuyển công chức thuế 2014
  • Started by jinna
  • 23/12/13
  • Lượt xem: 2,557,928
  Thi công chức thuế

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Share this page Chia sẻ Facebook Email Chia sẻ Link Top Bottom