Excel VBA：Changin连接，mid并找到VBA代码的公式

Question

我正在创建另一个VBA，因为我需要从excel公式到VBA的值......

  

excel公式

     

    

= CONCATENATE（MID（J11,1，FIND（＆＃34; _＆＃34;，J11,1）），＆＃34;＃JPG＆＃34）

  

     

使用excel宏在VBA中记录的代码是......

     

    

ActiveCell.FormulaR1C1 = _

         

＆＃34; = CONCATENATE（MID（RC [-1]，1，FIND（＆＃34;＆＃34; _＆＃34;＆＃34;，RC [-1]，1）），＆ ＃34;＆＃34;＃JPG＆＃34;＆＃34;）＆＃34;

  

     

这给出了excel的Activecell中的值，但我需要VBA变量中的值。

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"

只需根据您的工作表更改工作表名称。