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

梅一枝

Sub ss()
    Dim x As Integer
    Dim y   
y = 1
    For x = 2 To Range("A65536").End(xlUp).Row
        If Range("F2") = Range("A" & x) Then
           y =y+ 1
        End If
    Next x
    Range("A" & x) = Range("F2")
    Range("B" & x) = Range("F2").Value & y
    Range("C" & x) = Range("F3")
End Sub

A06 梅一枝 01.rar (6.97 KB, 下载次数: 4)

2012-4-1 21:19 上传

点击文件名下载附件

A06 梅一枝 附件没指定代码编辑一下

南方朔

来看看                     

chenzhi_juan

可能我的理解能力不行吧，总想得太复杂了，不好意思了校长，下次一定认真听。

兰江自由鱼

Sub 输入()
Dim i As Integer, j As Integer
i = Application.CountIf(Range("A:A"), Range("F2"))
j = Range("a65535").End(xlUp).Row
Range("A" & j + 1) = Range("F2").Value
Range("B" & j + 1) = Range("F2").Value & i + 1
Range("C" & j + 1) = Range("F3").Value
End Sub

自己做的，没有参考别人。
D15兰江自由鱼_抢1.rar (10.82 KB, 下载次数: 2)

2012-4-1 21:06 上传

点击文件名下载附件

sd6310514

呵呵 我头脑短路了吧 哈哈搞的这么复杂，看了前面写的代码确实启发很多啊，不过如果表格中编号不是从1开始的话 前面的代码还是有点问题的。考虑复杂了，以后还请兰版多多指教啊！

ztccsj

wenchduan 发表于 2012-4-1 20:18

向高手学习，            

auhl

学学，看看，有些体会