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

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

byhdch

A09:byhdch

Sub 查找月份()
Dim i As Integer, j As Integer
For i = 2 To 7
If Cells(i, "I") = "" Then
        j = Cells(i, "I").End(xlToLeft).Column
    Else
        Cells(i, "I").Select
    End If
   Cells(i, "I") = Cells(i, j).Offset(-i + 1, 0).Value
    Next i
End Sub
Sub 清空()
   Range("i2:i7").ClearContents
End Sub

抢2.rar (7.53 KB, 下载次数: 2)

2012-4-1 20:50 上传

点击文件名下载附件

一缕忧兰

抢2.zip (11.81 KB, 下载次数: 2)

2012-4-1 21:02 上传

点击文件名下载附件 A07:一缕忧兰

zjyxp

1. Private Sub CommandButton1_Click()
   
2. Dim X As Integer, y As Integer
   
3. For X = 2 To 7
   
4. y = Range("i" & X).End(xlToLeft).Column
   
5. Range("I" & X) = Cells(1, y)
   
6. Next X
   
7. End Sub
   
8. Sub 清空()
   
9. Range("b2:h7").Clear
   
10. End Sub

复制代码

Crystalm

E组 E22  Crystalm 上传第二道抢答题
动作还是慢了点...