每个子程序中数值如果互通？

sxfxtf

我把一个脚本按照功能不同，写在了好几个sub里，比如sub1 计算出了几个单元格地址写在了数组中，sub2计算出了需要的字符串，然后我在main sub中call sub1 和sub2实现把单元格中都写入这字符串。

所以我的问题是怎么将每个sub中的数据在一个main sub中结合到一起？

sxfxtf

都没有大神指导下吗

coolall

是否可以用 function() 替换sub
例如：

1. Function countR(str As String) As Integer
   
2. For i = 1 To 30
   
3.     If str = Sheets(1).Cells(i, 1) Then
   
4.         countR = i
   
5.         Exit For
   
6.     End If
   
7. Next i
   
8. End Function
   
9. sub run
   
10. k = countR("字符参数")
    
11. end sub
    

复制代码