Điều này hoàn toàn có thể!Chử đến rồi File ở lại nhé !
Bạn làm gì mà sử dụng 10000 dòng dử vậy ?bao lâu thì được 10000 dòng đó 1 năm hay bao lâu ?
Đến đây nghiên cứu cách post bài nhe
Dử liệu như thế thì khó lòng mà post lên nỗi ..
.
Sub test()
Dim er As Long
er = [b10000].End(xlUp).Row
Range("a" & er + 1, "c" & er + 1).ClearContents
With Cells(er + 1, 1)
.Value = "TOTAL AMOUNT"
.Font.Bold = True
.Size = 15
.Offset(, 1) = Application.WorksheetFunction.SumIf(no, "", amount)
End With
End SubRange("a" & er + 1, "c" & er + 1).ClearContentsRange("a" & er + 1 & ":c" & er + 1).ClearContents.Offset(, 1) = Application.WorksheetFunction.SumIf(no, "", amount).Offset(, 1) = WorksheetFunction.SumIf(Range("no"), "", Range("amount"))Sub test()
Dim er As Long
er = [b10000].End(xlUp).Row
With Range("a" & er + 1 & ":c" & er + 1)
.Clear
.Interior.ColorIndex = 6
.Pattern = xlSolid
End With
er = [b10000].End(xlUp).Row
With Cells(er + 1, 1)
.Value = "TOTAL AMOUNT"
.Font.Bold = True
.Size = 15
.Offset(, 1) = WorksheetFunction.SumIf(Range("no"), "", Range("amount"))
End With
End SubBạn đưa file lên xem thử ---> Vừa sửa và rút gọn code luôn (code này vẫn còn dài)
Sửa lại vầy cho gọn:
Sub Test()
With Range("A65536").End(xlUp).Offset(1)
With .Resize(, 3)
.Clear: .Interior.ColorIndex = 6: .Font.Bold = True: .Font.Size = 15
End With
.Offset(, 1) = "TOTAL AMOUNT"
.Offset(, 2) = WorksheetFunction.SumIf(Range("No"), "", Range("Amount"))
End With
End SubName động mà người ta thường ứng dụng nhiều nhất là trong Validation list! Hãy thử tưởng tượng tình huống này:
