已结束：VBA抢答题1（2012-4-1）

兰色幻想

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

2012-4-1 19:53 上传

点击文件名下载附件

zhouyunj

做题 中，  ：）  哈哈

chenzhi_juan

我来答题
Sub x()

Dim lastrow As Long

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

Cells(lastrow, "a") = Range("f2")
Cells(lastrow, "c") = Range("f3")
Cells(lastrow, "b") = Range("f2") & Range("f3")


End Sub

chrissha

C10: chrissha 抢1.rar (6.87 KB, 下载次数: 16) 2012-4-1 20:08 上传 点击文件名下载附件

tcn541

Sub 输入()
Range("a65536").End(xlUp).Offset(1, 0) = Range("f2")
Range("c65536").End(xlUp).Offset(1, 0) = Range("f3")
Range("b65536").End(xlUp).Offset(1, 0) = Range("f2") & Range("f3")

End Sub

wenchduan

1. Sub 输入()
   
2. Dim i%, j%
   
3.     j = 1
   
4.     For i = 2 To Range("A65536").End(xlUp).Row
   
5.       If Range("F2") = Range("A" & i) Then j = j + 1
   
6.     Next i
   
7.     Range("A" & i) = Range("F2")
   
8.     Range("B" & i) = Range("F2").Value & j
   
9.     Range("C" & i) = Range("F3")
   
10. End Sub
    
11. 'A组长：wenchduan

复制代码

yl_li

B19-yl_li

Sub 输入()
Dim i As Integer
Dim n As Integer
    i = Range("a" & Rows.Count).End(xlUp).Row + 1
    n = WorksheetFunction.CountIf(Range("a:a"), Range("f2"))
    Range("a" & i).Value = Range("f2")
    Range("b" & i).Value = Range("f2").Value & n + 1
    Range("c" & i).Value = Range("f3")
End Sub

抢1.rar (11.04 KB, 下载次数: 14)

2012-4-1 20:20 上传

点击文件名下载附件

冠军欧洲2010

H18 冠军欧洲2010
Sub a()
Dim x As Integer
Dim b As Integer
x = Range("a65536").End(xlUp).Row + 1
b = Application.WorksheetFunction.CountIf(Range(Range("a2"), Range("a" & x)), Range("f2"))
Cells(x, 1) = Range("f2").Value
Cells(x, 2) = Range("f2") & b + 1
Cells(x, 3) = Range("f3")
End Sub

liuho1

Sub 输入()
    Dim rw As Integer
    rw = Range("a56635").End(xlUp).Row
    Range("A" & rw) = Range("F3")
    Range("B" & rw) = Range("F3") & Range("F4")
    Range("C" & rw) = Range("F4")
End Sub

zhouyunj

抢答1已完成！请老师指点 ，谢谢！