初学VBA，代码运行不通，求大神

coolme7guai

小弟初学VBA，想通过代码自动寻找特定位置的单元格填数据，因为目标单元格的位置会随着内容的添加而改变，因此想编一个函数，通过调用来寻找单元格行和列的位置，下面是我写的代码，运行不通，求大神们出手~~~感激不尽。
      首先是单元格行位置的函数
Public Function rownum(sht As Variant,i as long, j as long, findtxt As Variant) As Long  'sht为表名，findtxt为要查找的单元格内容，i,j为需查找单元格所在的行号范围
Set rng = ThisWorkbook.Sheets(sht).rows("i,j").Find(findtxt, lookat:=xlWhole)
If Not rng Is Nothing Then
   rownum = rng.Row
Else
    rownum = 0
End If
End Function
    列的位置不会改变，因此列函数如下
End Function
Public Function colu(sht As Variant) As Long 'sht为表名
      Set rng = ThisWorkbook.Sheets(sht).Rows("1:10").Find("当期完成量", lookat:=xlWhole)
    If Not rng Is Nothing Then
       colu = rng.Column
    Else
       colu = 0
    End If
End Function
   调用函数的时候，发现是错误的，试过几次感觉是i 和j的位置出了问题。下面是调用的命令。
Sub TYZX()
  cells（rownm(sheet1,32,53,"围护桩"),colu(sheet1)).value=7456
end sub
   大概就是这个意思，因为小弟能力有限，还请大神能出手拉一把~~~感激感激

changhong8

你把i,j外面加双引号了，失去了本来的意义

Chip_Kenny

直接定義該cell, 以後連find 都不用。

coolme7guai

朱荣兴 发表于 2019-8-19 23:29
简单问题复杂化，不管位置如何变化，只要有标志，find就可以搞定行列位置

问题在于有些单元格内容是重复的，因此必须限定i和j，否则选择不到我要的那个区域

coolme7guai

Chip_Kenny 发表于 2019-8-20 07:22
直接定義該cell, 以後連find 都不用。

因为我需要定位的单元格很多，如果不定义函数的话会很麻烦

coolme7guai

朱荣兴 发表于 2019-8-20 11:36
那就用个循环来记录相应的行列数不就行了？不上传附件，让别人猜来猜去，考研别人的耐性？？？呵呵

OK，这就上传

coolme7guai

失误失误，没上传附件，现在立马传