****已经解决 ，，

ppsnow

真的是绞尽脑汁了，不知道怎么改了，真的是好急，帮我看看吧，大虾们，老鬼的方法试过了，不对，


我试过clearcontent，还有value=“”，可是总是不对，不能正确删除我要的内容。



不知道怎么在循环中修改， ，，，，，，


问题具体都写在附件中，问题是怎么删除一行里某些连续单元格的内容和格式，而使行里的其他单元格和格式都保持不动，


Windows(w).Activate
   Sheets(s).Activate
   Range("J21:J" & ende).Select
   For i = 1 To ActiveSheet.UsedRange.Rows.Count
   If ActiveCell.Value < Date Then
   ActiveCell.EntireRow.Delete  （这个就是删除整行，但是现在只要删除满足条件的行里B到J单元格的值和格式）


   Else
   ActiveCell.EntireRow.Show
   ActiveCell.Offset(1, 0).Select
   End If
   Next i

[此贴子已经被作者于2006-10-21 22:22:31编辑过]

老鬼

Range("B21：J21").ClearContents

ppsnow

我等，，，我等，，，，

ppsnow

[em11][em02][em03][em06][em06][em06][em06]为自己顶一下，，，急死了

ppsnow

哦，，， ，， my god  ///// 偶不适合编程

老鬼

不懂你的黑色幽默

ppsnow

什么幽默，人都急坏了，还幽什么默阿

老鬼

不懂你要做什么啊

ppsnow

先祝大家中秋快乐　

ppsnow

就是一行里的数据只删除前面的一些数据，　保持后面不动．