cộng trừ các cột bằng VBA

  • Thread starter nhathuyha
  • Ngày gửi
N

nhathuyha

Guest
30/11/16
16
0
1
33
Hi all
Mình có dữ liệu cần xử lý như sau
Cột A Cột B Cột C
1 2
2 4
. .
n m
Mọi người cho mình hỏi làm thế nào để có dữ liệu của cột C theo công thứ cộng hoặc trừ : C1=A1+B1
C2= A2+B2.... Cn=An+Bn
với n là số không cố định (không phải như 1 cái bảng nào cố định sẵn có bao nhiêu dữ liệu) , được hiểu là số vô cùng lớn.
Bạn nào giỏi VBA thì xin giúp mình với
 
Khóa học Quản trị dòng tiền
thinhvd

thinhvd

Cao cấp
25/11/09
1,336
234
63
Hà Nội
bluesofts.net
Hi all
Mình có dữ liệu cần xử lý như sau
Cột A Cột B Cột C
1 2
2 4
. .
n m
Mọi người cho mình hỏi làm thế nào để có dữ liệu của cột C theo công thứ cộng hoặc trừ : C1=A1+B1
C2= A2+B2.... Cn=An+Bn
với n là số không cố định (không phải như 1 cái bảng nào cố định sẵn có bao nhiêu dữ liệu) , được hiểu là số vô cùng lớn.
Bạn nào giỏi VBA thì xin giúp mình với
Phần này bạn sẽ dùng 1 cách tìm dòng cuối cùng của bảng số liệu.
Ví dụ như trong trường hợp của bạn Cột A là cột bạn muốn tìm dòng cuối cùng
PHP:
Dim d as Long 'Bien nhan gia tri dong cuoi
d=Range("A" & Activesheet.Rows.Count).End(xlup).Row 'Tim duoc dong cuoi cung
'Dung vong lap
For i = 1 to d
Cells(i,3).value = Cells(i,2).Value + Cells(i,1).Value
Next
 
  • Like
Reactions: nhathuyha
N

nhathuyha

Guest
30/11/16
16
0
1
33
Phần này bạn sẽ dùng 1 cách tìm dòng cuối cùng của bảng số liệu.
Ví dụ như trong trường hợp của bạn Cột A là cột bạn muốn tìm dòng cuối cùng
PHP:
Dim d as Long 'Bien nhan gia tri dong cuoi
d=Range("A" & Activesheet.Rows.Count).End(xlup).Row 'Tim duoc dong cuoi cung
'Dung vong lap
For i = 1 to d
Cells(i,3).value = Cells(i,2).Value + Cells(i,1).Value
Next
Thanks bạn nhé.. để mình viết code thử xem sao..
 

Xem nhiều

Webketoan Zalo OA