又要请教sundf达人了

陈酿

上次那个程序被老师说还要完善。 到Descolumncount列的数据如果全是零的话，该条数据被删除，单元格上移，只保留有数据的条目。下边这张表Descolumncount=1 就是说，这张表前两天数据都要被删除，然后上移，剩下的数据也是这么操作。


这是上次的代码，希望能在这个click里实现这个功能

1.     Private Sub CommandButton1_Click()
   
2.     Dim r As Integer
   
3.     Dim n As Integer
   
4.     Dim f As Integer
   
5.     Dim i, j As Integer
   
6.     Sheets("Sorting").Select
   
7.     Sheets("Sorting").Copy After:=Sheets(Sheets.count)
   
8.     ActiveSheet.Name = TextBox1.Text
   
9.     ActiveCell.CurrentRegion.Select
   
10.         n = Selection.Columns.count
    
11.         r = Selection.Rows.count
    
12.     f = n - Descolumncount
    
13.     For i = 2 To r
    
14.             For j = 2 To f
    
15.          
    
16.     If CDbl(Sheets("remark").Cells(i, j)) >= CDbl(TextBox1.Text) Then
    
17.                             Sheets(TextBox1.Text).Cells(i, j) = Sheets("Sorting").Cells(i, j)
    
18.     Else
    
19.     Sheets(TextBox1.Text).Cells(i, j) = 0
    
20.     End If
    
21.      Next j
    
22.       Next i
    
23.    
    
24.     End Sub

复制代码

陈酿

顺便预约一下二月份的一个周末，哈哈，表示感谢

sundf

偶在上海休息，回日本帮你看看吧{s:1:001}

陈酿

sundf 发表于 2012-1-5 23:21
偶在上海休息，回日本帮你看看吧

那你继续好好休息，我搞定了，哈哈

sundf

好快{:16_638:}

憨吃迷糊睡

sundf 发表于 2012-1-5 23:21
偶在上海休息，回日本帮你看看吧

休息天边喝咖啡边看电影最舒服了

好好休息，今年也拜托了

有了大圣，迷糊可以晚上12点之前睡觉啦，呵呵