我需要一个正则表达式模式，比方说，我希望模式是任何2个或更多的字母字符在一个组中使用（例如：“ab”/“abb”/“abbb”/），在一个字符串中连续3次或更多次（例如：“ababab”/“abbabbabb”/“abbbabbbabbb”），我有这个函数，在我想适应的字符串中连续使用3次或更多次。 Function TripleChars(S As String) As Boolean
Dim
Excel的VBA 我想删除基于COND 所有行看到if语句 但代码不会删除有ws.Cells(i, 6).Value = 0 所有行 Sub Clean()
For Each ws In Worksheets
' find Last Row
LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
' loop over
我想了解在VBA中声明错误类型的变量时可能发生的错误类型。 这是我使用的代码： Sub testTypes()
Dim test1 As Integer
test1 = 0.5
Debug.Print test1
End Sub
我试图用故意双号类型看VBA将如何圆他们（向上或向下），使他们的整数，鉴于数结束于0.5 我得到了令人费解的结果： 5.567 --> 6
5.5 -
我有四个工作表，我在单元格F2中编写了一个公式，它触发了所有其他的填充。我已经有触发器的私人小组来调用我的程序工作。有没有办法让这个子更有效率？ Option Explicit
Sub FillDownFormula_test2()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Filldown a form
我试图让使用SQL语句从数据库访问数据，如具有可变 变量是一个字符串“mrcTrx” 转到在评论中*******得到直接点。 我知道它不是什么大不了的，但我找不到答案谢谢！ 的代码的其余部分是好的曲子，如果我一个把用于为例“05”的代码值的作品完美 Sub GetMun()
Dim cn As Object
Dim rs As Object
Dim in
所以我是VBA的新手，并试图在工作项目中发现某些东西，这会让我疯狂。 我有一个宏来清理我的数据并把它放到一个表中，然后我正在处理一个宏来获取该表并将其转换为数据透视表/图表。第一个宏在电子表格“DailyData”上创建Table1。作为参考，那就是： Sub Format_Table()
Dim target As Worksheet
Set target = ThisWorkbook.Wo
愚蠢的问题：此代码编译不正确，我无法找到任何其他“没有For”问题的解决方案。我有一种感觉，我只是错过了一些愚蠢的东西。下面是相关的代码： For Each Cell In CHWAssigned
If Cell = "" Then
If Cell.Row Mod 3 = 0 Then
Cell.Value = "DM"
ElseIf Cell.Ro
我试图从WSJ期货中提取表格，但我希望能够更改网址中的日期。我的希望是使用下面的代码，但使网站的单元格参考。任何想法如何使这项工作或一个不同的代码，将使我与网站的单元格参考相同的结果？ Sub GetWebTable()
With ActiveSheet.QueryTables.Add(Connection:="http://www.wsj.com/mdc/public/page/2_3