Question

我希望在列中插入公式＆＃34; G＆＃34; =文本（A3，＆＃39; mmmm＆＃34;），以便根据A列中的日期/时间更新每个单元格。

xcWks.Range（＆＃34; G＆＃34;＆amp; rCount）.Formula =＆＃34; = TEXT（＆＃34; A＆＃34;＆amp; rCount，mmmm）＆＃34;

Answer 1

您想要使用

xcWks.Range("G" & rCount).Formula = "=TEXT(A" & rCount & ",""mmmm"")"

如果rCount是3，则会生成以下公式：

=TEXT(A3,"mmmm")

Answer 2

正如问题所述

我希望在“G”栏中插入公式

我假设您要在Column G中输入公式，请尝试

Dim lastRow As Long
lastRow = xcWks.Range("A" & xcWks.Rows.Count).End(xlUp).Row 'get last row with data using Colunm A
xcWks.Range("G2:G" & lastRow).Formula = "=TEXT(A2,""mmmm"")"

Answer 3

非常感谢你们。我有一个柜台＆＃34; intRow＆＃34;我之前在我的代码中定义的，它与rCount一起使用，它就像一个魅力。

excWks.Cells（intRow，7）.Formula =＆＃34; = TEXT（A＆＃34;＆amp; rCount＆amp;＆＃34;，＆＃34;＆＃34; mmmm＆＃34;＆＃34 ;）＆＃34;

插入带变量的公式

3 个答案: