Excel VBA：Changin连接，中间，find公式到VBA代码

我正在创build另一个VBA，因为我需要从Excel公式到VBA的价值…

Excel的公式是

= CONCATENATE（MID（J11,1，FIND（ “_”，J11,1））， “＃。JPG”）

我使用Excelmacros在VBA中logging的代码是…

ActiveCell.FormulaR1C1 = _

“= CONCATENATE（MID（RC [-1]，1，FIND（” “_” “RC [-1]，1）） ”“ ＃。JPG ”“）”

这给excel的Activecell的价值，但我需要在VBA的variables价值。

Answer 1

这是vba中的代码 –

 Dim str As String str = Mid(Sheets("sheetname").Range("J11").Value, 1, Application.WorksheetFunction.Search("_", Sheets("sheetname").Range("J11").Value, 1)) & "#.jpg" 

只要根据你的工作表更改工作表名称即可。