程序如下
Private Sub CommandButton1_click()

numberofrows = Range("A").Rows.Count
numberofcolumns = Range("A").Columns.Count

For i = 1 To numberofrows
For j = 1 To numberofcolumns
If Range("A").Cells(i, j).Value = 5 Then _
Call dadada
Next j
Next i

End Sub

Sub dadada(AnyString)
k = 1
Range("h").Cells(k, 1).Value = i
Range("h").Cells(k, 2).Value = j
k = k + 1
End Sub

主旨是要在A矩阵中找到数值等于5的数并输出到h矩阵中。现在每次运行都不能说不能引用子函数。另外，可能IF语句也有问题，盼大虾们帮帮忙。。。我可是个绝对菜鸟。

Sub dadada(AnyString)
k = 1
Range("h").Cells(k, 1).Value = i
Range("h").Cells(k, 2).Value = j
k = k + 1
End Sub

If Range("A").Cells(i, j).Value = 5 Then _
Call dadada '//原子过程有个参数..你调用时没有
Next j

把（anystring）去掉了也不行啊

你的dadada(AnyString)过程根本是定义错误嘛。改成如下试一试：

Sub dadada(d1 as single,d2 as single)
k = 1
Range("h").Cells(k, 1).Value = d1
Range("h").Cells(k, 2).Value = d2
k = k + 1
End Sub

调用语句如下：
call dadada(i，j)

还不止这些，你每次调用dadada时候，k都为1。建议你将k定义成全局变量，可以这样改一下：
Public k as integer

Private Sub CommandButton1_click()
k=1
numberofrows = Range("A").Rows.Count
numberofcolumns = Range("A").Columns.Count

For i = 1 To numberofrows
For j = 1 To numberofcolumns
If Range("A").Cells(i, j).Value = 5 Then _
Call dadada(i,j)
Next j
Next i

End Sub

Sub dadada(d1 as integer,d2 as integer)
Range("h").Cells(k, 1).Value = d1
Range("h").Cells(k, 2).Value = d2
k = k + 1
End Sub