Giúp mình bài toán thêm dòng và công thức (2 người xem)

[hoi_joker]

Mọi người giúp mình giải bài toán TÔ MÀU - THÊM DÒNG - CÔNG THỨC có cách nào nhanh nhất!

tks
ờ ơ o

 

[phan ngoc lan]

Bạn thử dùng File này xem nhớ Enable marco nhé Nhấn nút chèn dòng để xem kết quả!

 

[hoi_joker]

Trường hợp nữa như file đính kèm, Các bạn xử lý giúp

Trường hợp nữa như file đính kèm, Các bạn xử lý giúp để có sheet "Ket qua"

 

[phan ngoc lan]

Trường hợp nữa như file đính kèm, Các bạn xử lý giúp để có sheet "Ket qua"

Đã lâu không vào diễn đàn nên không bít tin nhắn của bạn, thông cảm cho mình nhé mình gửi File cho bạn đây kiểm tra xem sao
Chúc thành công.
P/S: nhớ Enable Marco nhé!

 

[hoi_joker]

không chính xác nếu Range("G65536").End(xlUp).Row > Range("D65536").End(xlUp).Row

@Ngoc Lan: Nếu dòng chi phí nhiều hơn Range("G65536").End(xlUp).Row > Range("D65536").End(xlUp).Row thì không chính xác

Mình mới học Excel nên vận dụng thử cách của bạn, Mong bạn xem giúp nếu có thể rút gọn code hoặc viết lại code này

Many tks.

 

[phan ngoc lan]

@Ngoc Lan: Nếu dòng chi phí nhiều hơn Range("G65536").End(xlUp).Row > Range("D65536").End(xlUp).Row thì không chính xác

Mình mới học Excel nên vận dụng thử cách của bạn, Mong bạn xem giúp nếu có thể rút gọn code hoặc viết lại code này

Many tks.

Trong Marco của mình bạn thay dòng:
Do While i <= .Range("D65536").End(xlUp).Row 
Bằng dòng:
Do While i <= .Range("D65536").End(xlUp).Row Or i <= .Range("G65536").End(xlUp).Row

hoặc trong Marco của bạn nên tận dụng:
thay:
        If NextRow1 >= NextRow2 Then
                NextRow = NextRow1
        ElseIf NextRow2 >= NextRow1 Then
                NextRow = NextRow2
        End If
bằng:
NextRow = Application.WorksheetFunction.Max(NextRow1, NextRow2)

(Vì nếu trong một marco khác không phải ở đây nếu bạn sử dụng nhiều đối số lớn hơn 2 chẳng hạn mà bạn muốn lấy giá trị lớn nhất, nhỏ nhất, xếp hạng thứ n thì bạn cứ dùng If để so sánh sao?)