标题: vb代码求助：复制指定数据到条件单元格 [打印本页] 作者: xingye1001 时间: 2008-5-24 09:38 标题: vb代码求助：复制指定数据到条件单元格 希望大家能帮我解决一个复制指定数据到条件单元格的代码编写，具体内容及要求详见附件，在此先表示感谢！作者: office123456 时间: 2008-5-24 16:21
VBA:
Private Sub CommandButton1_Click()
Dim t As Integer
t = Application.WorksheetFunction.Match(Application.WorksheetFunction.Max(Range("C:C")), Range("C:C"))
' MsgBox t
Cells(t, 2).Value = Sheets("数据库").Range("C1").Value
End Sub