[已解决][求助]VBA高手帮忙解决！

vivajian

7R9d6aBh.rar (7.18 KB, 下载次数: 9)

2009-12-1 18:00 上传

点击文件名下载附件
[求助]VBA高手帮忙解决！

最佳答案

月排行榜 / 总排行榜

雨狐

2009-12-1 21:16

问题是1中的Application.Volatile

将1中加一下蓝色部份:

Function zhyh(rng As Range)
Dim col&, m&
Application.Volatile
col = rng.Column
m = Sheet1.Cells(65536, col).End(xlUp).Row
If m <> 1 Then
zhyh = Sheet1.Cells(m, col)
Else
zhyh = ""
End If
End Function

跳转到最佳答案楼层

BJ

看了
搞不定
[em06]

vivajian

希望大家帮忙解决问题~~谢谢

蓝桥玄霜

Sub yy()
Dim i&, Myc%, Arr
Dim d, k, t
Set d = CreateObject("Scripting.Dictionary")
Myc = Sheet1.[iv1].End(xlToLeft).Column
Arr = Sheet1.Range("a1", Cells(1, Myc))
For i = 1 To UBound(Arr, 2)
    If Arr(1, i) <> "" Then
        d(Arr(1, i)) = d(Arr(1, i)) + 1
    End If
Next
k = d.keys
t = d.items
Sheet2.Activate
Sheet2.[a1].Resize(1, UBound(k) + 1) = k
Sheet2.[a2].Resize(1, UBound(k) + 1) = t
End Sub

vivajian

请蓝桥老师做个表！我不会使用这代码！[em04]

vivajian

蓝桥老师代码我已经放进去了！不过还不能完全正确统计最后单元数字，每个数字出现的次数！

蓝桥玄霜

yyMip6RZ.rar (8.57 KB, 下载次数: 0)

2009-12-1 21:15 上传

点击文件名下载附件
[求助]VBA高手帮忙解决！

雨狐

问题是1中的Application.Volatile

将1中加一下蓝色部份:

Function zhyh(rng As Range)
Dim col&, m&
Application.Volatile
col = rng.Column
m = Sheet1.Cells(65536, col).End(xlUp).Row
If m <> 1 Then
zhyh = Sheet1.Cells(m, col)
Else
zhyh = ""
End If
End Function

vivajian

Function zhyh(rng As Range)
Dim col&, m&
Application.Volatile
col = rng.Column
m = Sheet1.Cells(65536, col).End(xlUp).Row
If m <> 1 Then
zhyh = Sheet1.Cells(m, col)
Else
zhyh = ""
End If
End Function

这个可不可改成指定两个Sheet1和Sheet2~~

雨狐

QUOTE:

以下是引用vivajian在2009-12-1 21:48:00的发言：

Function zhyh(rng As Range)
Dim col&, m&
Application.Volatile
col = rng.Column
m = Sheet1.Cells(65536, col).End(xlUp).Row
If m <> 1 Then
zhyh = Sheet1.Cells(m, col)
Else
zhyh = ""
End If
End Function

这个可不可改成指定两个Sheet1和Sheet2~~

Volatile标记自定义函数是易失性函数,当表二激活时,计算错误,所以最好加一个sheet1这个可不可改成指定两个Sheet1和Sheet2~~不明白什么意思