美好的一天,
即使我在第 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/