sd6310514 发表于 2012-4-1 20:45

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 发表于 2012-4-1 20:50

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


一缕忧兰 发表于 2012-4-1 21:02

A07:一缕忧兰

zjyxp 发表于 2012-4-1 21:07

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

Crystalm 发表于 2012-4-1 21:21

E组 E22Crystalm 上传第二道抢答题
动作还是慢了点...
页: 1 2 [3]
查看完整版本: 已结束：抢答2（2012-4-1)