我编写了一个代码，该代码应在sheet1中采用activecell的值形式，并在sheet2的A：A列中查找此值。找到后，代码应将数据输入到右侧的单元格中（仍在sheet2中）。它应该从txtform输入数据（用户将其写入表单文本框的数据）。
Private Sub BtnOK_Click()
For Each element In Sheets("sheet2").Range("A:A")
If element.Value = ActiveCell Then
element.Select
ActiveCell.Offset(0, 1).Value = txtform
Exit For
End If
Next
Unload Me
End Sub
它不起作用。运行时错误1004。请帮助我。
可能的原因有很多：
。
Private Sub BtnOK_Click()
For Each element In Sheets("sheet2").Range("A:A")
If element.Value = ActiveCell.Value Then
element.Offset(0, 1).Value = txtform
Exit For
End If
Next
Unload Me
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句