vba - 我希望我的公式跟随目标单元格

标签 vba excel

美好的一天,

即使我在第 20 行之前插入了多行,我也希望此代码遵循目标单元格 (G20)

=LEFT(G20,3)&TEXT(COUNTIF(G20:G20,LEFT(G20,1)&"*"),"000")

谢谢,

是否也可以为 Cell D20 设置 INDRECT 代码?

Private Sub CommandButton1_Click()
Dim x As String, rcell As Range, y As String, z As Long

x = "RFP" & Format(Now, "mmddyyhhmmss")
y = Left(x, 10)
z = Right(x, 2)

For Each rcell In Range("D20:D" & Range("D" & Rows.Count).End(3).Row)
If Cells(rcell.Row, 1) = "" Then Cells(rcell.Row, 1) = y & z
z = z + 1
Next rcell

End Sub

最佳答案

尝试用 2 个美元符号围绕 G20。像这样:

=LEFT($G$20,3)&TEXT(COUNTIF($G$20:$G$20,LEFT($G$20,1)&"*"),"000")

在这里阅读更多关于美元符号的信息:

https://blogs.office.com/en-us/2011/08/17/making-sense-of-dollar-signs-in-excel/ 总的来说,它们确实很有用。

关于vba - 我希望我的公式跟随目标单元格,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/45456388/

相关文章:

excel - 如何将包含来自不同单元格的部分文本的单元格重新组织到一列中?

excel vba saveasui 文件路径

excel - 使用 Excel 2007(Vista 64 位版本)加载 32 位 DLL

c# - 如何使用 EPPlus 在多个工作表上书写

excel - 有没有办法完全限定 VBA 函数的使用?

vba - FormulaR1C1 包括变量 - 应用程序定义的错误 : Excel VBA

vba - 遍历 Excel 工作表

excel - 根据部分名称查找文件夹

vba - 递归 VBA 先例

ms-access - 如何将全名字段拆分为名字、姓氏和中间名首字母?