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

兰色幻想

具体要求看附件内，本贴为回复可见。可以直接提交答案。提交答案时请把附件一并提交。
     奖励前10名，分别奖励10~1个积分
    抢2.rar (5.04 KB, 下载次数: 105)

2012-4-1 19:55 上传

点击文件名下载附件

zhouyunj

做题 中，  ：）  哈哈  沙发！

ls

Sub 清空()
Range("i2:i8").Clear
End Sub
Sub 查找月份()
For x = 2 To 7
Range("i" & x) = Range("i" & x).End(xlToLeft).End(xlUp).End(xlUp).End(xlUp)
Next
End Sub


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

2012-4-1 20:20 上传

点击文件名下载附件

yl_li

B19-yl_li
Sub 查找月份()
Dim i As Integer
Dim j As Integer
    For i = 2 To 7
        j = Range("i" & i).End(xlToLeft).Column
        Range("i" & i).Value = Cells(1, j)
    Next i
End Sub
Sub 清空()
    Range("i2:i7").ClearContents
End Sub
抢2.rar (11.19 KB, 下载次数: 21)

2012-4-1 20:13 上传

点击文件名下载附件

chenzhi_juan

Option Explicit

Sub pd()

Dim lastrow As Long

Dim x As Integer, y As Integer

lastrow = Range("a" & Cells.Rows.Count).End(xlUp).Row

For x = 2 To lastrow

  For y = 8 To 2 Step -1
  
     If Cells(x, y) <> "" Then
     
       Cells(x, "i") = Cells(1, y)
      
       Exit For
      
     End If
     
     Next y
     
     Next x


End Sub


校长，太慢了，打不开附件按钮。迟点再发，抢位要紧

chenzhi_juan

校长，迟了，不好意思，现在上传附件。
Option Explicit

Sub pd()

Dim lastrow As Long

Dim x As Integer, y As Integer

lastrow = Range("a" & Cells.Rows.Count).End(xlUp).Row

For x = 2 To lastrow

  For y = 8 To 2 Step -1
  
     If Cells(x, y) <> "" Then
     
       Cells(x, "i") = Cells(1, y)
      
       Exit For
      
     End If
     
     Next y
     
     Next x


End Sub

byhdch

A09:byhdch 抢2.rar (7.37 KB, 下载次数: 10)

2012-4-1 20:20 上传

点击文件名下载附件

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

wuhairong2011

C15:wuhairong2011
Sub 查找月份()
Dim x As Integer
  For x = 2 To 7
    If Cells(x, "H") > 1 Then
      Cells(x, "I") = "7月"
    Else
      Cells(x, "I") = Range("H" & x).End(xlToLeft).Column - 1 & "月"
    End If
  Next x
  
End Sub

tcn541

Private Sub CommandButton1_Click()
Dim x As Integer
For x = 2 To 7
  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

hactnet

H组:hactnet

Private Sub CommandButton1_Click()
Range("i2:i7").ClearContents
End Sub
Private Sub CommandButton2_Click()
Dim x As Integer
For x = 2 To 10 Step 1
    Range("i" & x) = Range("i" & x).End(xlToRight).Value
Next x
End Sub