Vấn đề với việc Insert Row (chèn thêm hàng) trong Excel

[hongthuydng]

Mình có một bảng tổng hợp báo cáo hàng tháng, không biết bị lỗi gì mà lúc thì Insert được hàng lúc thì báo lỗi mất dữ liệu không cho Insert. Cuối bảng có một hàng Tổng cộng, Khi mình bỏ hàng tổng cộng đó thì lại Insert bình thường, cón nếu để thì ko Insert được, Bỏ hàng tổng cộng xong làm lại thì lại insert bình thường.
Bạn nào biết lỗi đó là lỗi gì chỉ mình với.
Cảm ơn nhiều.

 

[BNTT]

Bạn nói cái dòng tổng cộng nó nằm ở đâu? Cuối bảng? Có phải đang nằm ở dòng 65536? Vấn đề là ở chỗ đó. Bởi số lượng dòng trong Excel có hạn, nên nếu dòng cuối cùng (65536) có dữ liệu rồi, thì Excel sẽ không thể nào chèn thêm dòng vào nữa, cho dù là có hàng ngàn dòng trống nằm trên dòng thứ 65536 này.

Bạn có thử vấn đề này bằng cách mở một bảng tính mới toanh, không có gì hết, nhảy tới ô A65536, gõ một cái gì vào đó. Sau đó thử Insert Row xem, không bao giờ được!

Vậy, vấn đề của bạn có thể sửa bằng cách dời cái Tổng cộng lên trên. Nếu như dữ liệu của bạn quá nhiều, đến hơn 65 ngàn dòng, thì bạn nên chuyển sang Excel 2007 để có nhiều dòng hơn. Nói thì nói vậy thôi, chứ thực tế, tôi chưa được tận mắt thấy một cái bảng dữ liệu nào có nhiều dòng đến như thế!

 

[hongthuydng]

Dòng tổng cộng nằm ở cuối bảng nhưng chỉ ở dòng 496 thôi, khi mới mở ra nó chỉ cho insert vài dòng một lần thôi rồi ko cho insert nữa. Lỗi xuất hiện như sau:
"To prevent possible of data Microsoft Office Excel cannot shift nonblank cell off the worksheet.
Try to locate the last nonblank cell by pressing Ctrl + End, and detele or clear all in cells between the last cell and the end of your data. Then select cell A1 and save your workbook to reset the last cell used.
Or you can move the dater to a new location and any again"
Các bạn xem thử lỗi này xử lý như thế nào chỉ giúp nha, file này rất nặng nên ko biết có bị ảnh hưởng gì ko.

 

[ChanhTQ@]

Dòng tổng cộng nằm ở dòng 496 thôi, khi mới mở ra nó chỉ cho insert vài dòng một lần thôi rồi ko cho insert nữa. Lỗi xuất hiện như sau: . . . .
Các bạn xem thử lỗi này xử lý như thế nào chỉ giúp nha, file này rất nặng nên ko biết có bị ảnh hưởng gì ko.

Bạn thử chạy macro này trên trang tính đó xem sao:

Option Explicit
Sub NoBlankRows()
  Dim jJ As Long
  
  [B499].Value = "DChi"
  For jJ = 500 To 65536
   If Cells(jJ, "A").End(xlToRight).Column < 256 Then
      Cells(jJ, "A").Interior.ColorIndex = 38
      [B65536].End(xlUp).Offset(1) = Cells(jJ, "A").Address
   End If
 Next jJ
End Sub

 

[hongthuydng]

Bạn ơi chạy Macro như thế nào? mình tạo mãi chưa được, bạn chỉ giúp mình với nha. Cảm ơn.