所以我有这个代码，它在一个名为Master Trainings的工作表上找到一个特定的字符串，并在其右侧找到单元格的地址。这很好。在此之前，我有一段代码，它创建一行并将相同的文本放入单元格中，例如 D4。
Dim findRng25 As Range
Dim foundRng25 As Range
Set findRng25 = Sheets("Master Trainings").Range("A:A")
Set foundRng25 = findRng25.Find(Cells(w + 1, 4).Value)
Dim C25 As Variant
C25 = Cells(foundRng25.Row, foundRng25.Column + 1).Address(0, 0)
NewCourseCell = Cells(w + 1, 5).Address
Range(NewCourseCell).Formula = "=B9*'Master Trainings'!" & C25 & ",0)"
2
如 @ PEH 的评论中所述，公式的这一部分有点无用-",0)"。只有一个)，并且不需要,0。
这是一些最小的代码，如果你有Master Trainings工作表：
Public Sub TestMe()
Dim c25 As String
c25 = "D10"
Range("B2").Formula = "=B9*'Master Trainings'!" & c25
End Sub
本站系公益性非盈利分享网址，本文来自用户投稿，不代表边看边学立场，如若转载，请注明出处
评论列表（19条）