blocks|key|242953|text|引号中的引号需要加倍。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|242954|.Formula+=+"=A4+&+""+""+&+B4"|code-block|syntax|javascript|242955|这将导致=A4+&+"+"+&+B4作为一个公式。|offset|length|style|CODE|242956|entityMap^0|0|0|4|E|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@$I|R|J|S|K|L]]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

Quotes within quotes need to be doubled

<pre><code>.Formula = "=A4 &amp; "" "" &amp; B4"
</code></pre>

and this will result in <code>=A4 &amp; " " &amp; B4</code> as a formula.

blocks|key|2908942|text|你也可以这样做：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2908943|For+i+=+4+to+LastRow3
++++Cells(i,+5).Value+=+Cells(i,+1).Value+&+"+"+&+Cells(i,+2).Value
Next|code-block|syntax|javascript|2908944|这是一个简单的循环，它通过第五个(E)列、4和LastRow3之间的行循环，并将这个单元格的值设置为同一行中连接的A列和B列。|offset|length|style|CODE|2908945|entityMap^0|0|0|N|8|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@$I|R|J|S|K|L]]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

You could do this alternatively:

<pre><code>For i = 4 to LastRow3
 Cells(i, 5).Value = Cells(i, 1).Value &amp; " " &amp; Cells(i, 2).Value
Next
</code></pre>

This is simple loop, that loops thorugh fifth (E) column, rows between 4 and <code>LastRow3</code> and sets the value of this cell to concatenated A and B columns in the same rows.

blocks|key|978534|text|这似乎是可行的：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|978535|Sub+jhgfd()
++++Set+ws3+=+ActiveSheet
++++LastRow3+=+10

++++With+ws3.Range("E4:E"+&+LastRow3)
++++++++.Formula+=+"=A4+&+CHAR(32)+&+B4"
++++End+With
End+Sub|code-block|syntax|javascript|978536|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

This appears to work:

<pre><code>Sub jhgfd()
 Set ws3 = ActiveSheet
 LastRow3 = 10

 With ws3.Range("E4:E" &amp; LastRow3)
 .Formula = "=A4 &amp; CHAR(32) &amp; B4"
 End With
End Sub
</code></pre>

blocks|key|242985|text|从Excel到VBA的“转换”公式可能是一个人在VBA中必须做的最流行的任务。这是一种算法：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|242986|编写公式，使其在Excel中工作；|unordered-list-item|242987|手动选择；|242988|运行以下命令：|242989|Public+Sub+PrintMeUsefulFormula()

++++Dim+strFormula++As+String
++++Dim+strParenth++As+String

++++strParenth+=+""""

++++strFormula+=+Selection.Formula
++++strFormula+=+Replace(strFormula,+"""",+"""""")

++++strFormula+=+strParenth+&+strFormula+&+strParenth
++++Debug.Print+strFormula

End+Sub|code-block|syntax|javascript|242990|它打印公式，就像在直接窗口中那样；|242991|复制它；|242992|如果您使用=CONCATENATE(A4,"+",B4)执行以下步骤，则会打印"=CONCATENATE(A4,""+"",B4)"|offset|length|style|CODE|242993|如果您使用的是本地Excel公式，例如俄罗斯的Excel，其中=CONCATENATE()是=СЦЕПИТЬ()，为了打印本地公式，您应该编写Selection.FormulaLocal而不是Selection.Formula。|242994|entityMap^0|0|0|0|0|0|0|0|5|N|13|R|0|V|E|1A|A|1Z|M|2O|H|0^^$0|@$1|2|3|4|5|6|7|11|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|12|8|@]|9|@]|A|$]]|$1|E|3|F|5|D|7|13|8|@]|9|@]|A|$]]|$1|G|3|H|5|D|7|14|8|@]|9|@]|A|$]]|$1|I|3|J|5|K|7|15|8|@]|9|@]|A|$L|M]]|$1|N|3|O|5|D|7|16|8|@]|9|@]|A|$]]|$1|P|3|Q|5|D|7|17|8|@]|9|@]|A|$]]|$1|R|3|S|5|6|7|18|8|@$T|19|U|1A|V|W]|$T|1B|U|1C|V|W]]|9|@]|A|$]]|$1|X|3|Y|5|6|7|1D|8|@$T|1E|U|1F|V|W]|$T|1G|U|1H|V|W]|$T|1I|U|1J|V|W]|$T|1K|U|1L|V|W]]|9|@]|A|$]]|$1|Z|3|-4|5|6|7|1M|8|@]|9|@]|A|$]]]|10|$]]

"Translating" a formula from Excel to VBA is probably the most popular task that a person has to do in VBA. This is an algorithm for it:

<ul>
<li>Write the formula, so it works in Excel;</li>
<li>Select it manually;</li>
<li>Run this:</li>
</ul>

<hr>

<pre><code>Public Sub PrintMeUsefulFormula()

 Dim strFormula As String
 Dim strParenth As String

 strParenth = """"

 strFormula = Selection.Formula
 strFormula = Replace(strFormula, """", """""")

 strFormula = strParenth &amp; strFormula &amp; strParenth
 Debug.Print strFormula

End Sub
</code></pre>

<ul>
<li>It prints the formula as it should look like in the immediate window;</li>
<li>Copy it;</li>
</ul>

If you follow these steps with <code>=CONCATENATE(A4," ",B4)</code>, it prints <code>"=CONCATENATE(A4,"" "",B4)"</code>

If you are using local Excel formulas, e.g. a Russian Excel, where <code>=CONCATENATE()</code> is <code>=СЦЕПИТЬ()</code>, in order to get the local formula printed you should write <code>Selection.FormulaLocal</code> instead of <code>Selection.Formula</code>.

I have a code below which concatenate Values in A and B columns. When I want to add an empty space between A and B which is an Excel formula 
 <code>=CONCATENATE(A4," ",B4)</code> or <code>=A4 &amp; " " &amp; B4</code>
the macro would flag it as an error when using VBA:

<pre><code>With ws3.Range("E4:E" &amp; LastRow3)
 .Formula = "=A4&amp;B4"
End With
</code></pre>

Formula with quotes into cell using VBA throws error

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

下面的代码将A列和B列中的值连在一起。当我想在A和B之间添加一个空空间(这是一个Excel公式=CONCATENATE(A4," ",B4)或=A4 & " " & B4 )时，宏会在使用VBA时将其标记为错误：With ws3.Range("E4:E" & LastRow3)    .Formula = "=A4&B...

问使用VBA抛出错误将引号放入单元格的公式
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用VBA抛出错误将引号放入单元格的公式EN