已结束：抢答2（2012-4-1)

wenchduan

1. Sub 查找月份()
   
2. Dim i%, j%
   
3. For i = 2 To 7
   
4.    For j = 8 To 2 Step -1
   
5.     If Cells(i, j) <> "" Then
   
6.     Cells(i, 9) = Cells(1, j)
   
7.     Exit For
   
8.     End If
   
9.    Next j
   
10. Next i
    
11.   
    
12. End Sub
    
13. 
    
14. Sub 清空()
    
15.     Range("I2:I7").Select
    
16.     Selection.ClearContents
    
17. End Sub
    

复制代码

A 组长：wenchduan

chrissha

c10: CHRISSHA
抢2.rar (7.16 KB, 下载次数: 14)

2012-4-1 20:36 上传

点击文件名下载附件

hrpotter

C12:hrpotter

1. Sub 查找()
   
2.     Dim i As Byte, j As Byte
   
3.     For i = 2 To 7
   
4.         j = Cells(i, "i").End(xlToLeft).Column
   
5.         Cells(i, "i") = Cells(1, j).Value
   
6.     Next
   
7. End Sub
   
8. Sub 清空()
   
9.     Range("i2:i7").ClearContents
   
10. End Sub
    

复制代码

C12-hrpotter-抢2.rar (11.27 KB, 下载次数: 2)

2012-4-1 20:36 上传

点击文件名下载附件

linch92413

E05:linch92413
Private Sub CommandButton1_Click()
   Dim R As Integer, i As Integer
   R = Range("a65536").End(xlUp).Row
   For i = 2 To R
      Cells(i, 9) = Application.Intersect(Rows(1), Cells(i, 10).End(xlToLeft).EntireColumn)
   Next i
End Sub
抢2(linch92413).rar (11.41 KB, 下载次数: 17)

2012-4-1 20:37 上传

点击文件名下载附件

梅一枝

Sub qing()
    Range("i2:i7").ClearContents
End Sub

Sub chazhao()
    Dim x As Integer
    Dim y As Integer
    For x = 7 To 2 Step -1
        If Cells(x, "h") > 0 Then
            Cells(x, "I") = "7月"
        Else
            Cells(x, "i") = Range("h" & x).End(xlToLeft).Column - 1 & "月"
        End If
    Next x
End Sub
A06 梅一枝 02.rar (7.89 KB, 下载次数: 4)

2012-4-1 20:38 上传

点击文件名下载附件

兰江自由鱼

D15兰江自由鱼_抢2.rar (11.7 KB, 下载次数: 2)

2012-4-1 20:38 上传

点击文件名下载附件
Sub 清空()
Dim i As Integer
i = Range("a65535").End(xlUp).Row
Range("i2:i" & i).Clear
End Sub


Sub 查找月份()
Dim i As Integer
Dim j As Long
Dim k As Integer

j = Range("a65535").End(xlUp).Row
For i = 2 To j

k = Range("i" & i).End(xlToLeft).Column - 1
  Range("i" & i) = "" & k & "月"

Next i

End Sub

zhouyunj

已完成了，请老师批阅，谢谢！

jxncfxsf

Sub zh()
Dim m, n As Integer
For m = 2 To 7
For n = 7 To 1 Step -1
  If Cells(m, n + 1) <> "" Then
  Cells(m, 9) = n & "月"
  Exit For
  End If
  Next n
  Next m
End Sub

shengxudong

Sub 清空()
Range("i:i").Select

Selection.ClearContents
Range("a1").Activate
End Sub
Sub 查找月份()
Dim x As Integer
Dim y  As Integer
Dim yue As String
For x = 2 To 7
    For y = 2 To 8
       If Cells(x, y).Value > 0 Then
           yue = Cells(1, y).Value
       End If
    Next y
    Cells(x, y).Value = yue
Next x
End Sub

sd6310514

Sub cmd()
    Dim LRn As Integer
    Dim i As Integer
    Dim j As Integer
    With Sheet2
        For i = 2 To .Range("a65535").End(xlUp).Row
            For j = 7 To 1 Step -1
                If .Cells(i, j + 1) <> "" Then
                    .Range("I" & i) = .Cells(1, j + 1)
                    Exit For
                End If
            Next j
        Next i
    End With
End Sub