向各高手求救解决办法？

HENRYNG

向各高手求救解决办法：

本人想在表一单元格H4中添加由表二B列最大值的数再+1而产生的数，如何写好？

例如表二B列最大值为“31212”再+1即“31213”填入表一单元格H4中。

请详解，多谢！！！[em14]

fjzjyan

在表一H4单元格输入：“=MAX(表二!B1:B6)+1”即可。

HENRYNG

这个函数我知道,但如何用VBA写呢?请指教.[em07]

fjzjyan

按ALT+F11进入VBE界面,插入一个模块编写如下代码:

Sub aa()
Dim ws As Worksheet
Dim rg As Range
Set ws = Sheets("表二")
Set rg = ws.Range(ws.Cells(1, 2), ws.Cells(65536, 2).End(xlUp))
Sheets("表一").[H4] = Application.WorksheetFunction.Max(rg) + 1
End Sub

在表一按ALT+F8执行即可（见案例）。

[此贴子已经被作者于2007-5-28 10:12:37编辑过]

HENRYNG

多谢fjzjyan[em01]