我尝试将下面的代码应用于总共35张纸中的26张。我似乎想不通了。目前宏被设置为应用于所有工作表,但我需要编辑它以排除不适用的八个选项卡,或者编辑它以应用于26个工作表本身。我确实计划隐藏26个选项卡,因为它们输入到摘要表中,所以这会影响公式吗? 对于上下文,在需要排序的每个工作表中,列B到Q都有数据,我在列C中按滚动条排序(升序)。这里的任何想法都将不胜感激。 谢谢! Sub SortAllSheets()
Dim WS As Worksheet
ActiveSheet.Range("B1:Q1").Select
Selection.Copy
On E
抱歉,我对RegEx还不太熟悉,希望有人能帮上忙。
问题中的文件:
Apples.A.Tasty.Treat.Author-JoeDirt.doc
Cooking with Apples Publisher-Oscar Publishing.txt
Candied.Treats.Author-JenBloc.Publisher-Event.docx
我目前使用这段vbscript代码将文件名中的空格或破折号替换为句点,但我想知道是否有更有效的方法来实现这一点?
Set colRegExMatches = strRegEx.Execute(objSourceFil
我尝试在带有VBScript的文件中的两个特定行之间插入一行:
# Ligne 1
# Ligne 2
=>
# Ligne 1
# Ligne 1 bis
# Ligne 2
我的脚本代码是:
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "# Ligne 1\r\n# Ligne 2"
regEx.Pattern = patrn
regEx.IgnoreCase = not Casse
regEx.Global = True
RegExpReplace=regEx.Rep
我的下面的代码没有从名称列表中返回确切的值。例如,如果在列表中我有:
安·安娜·汉娜
...and我正在寻找"Hannah Fawler“代码将返回以下内容:
“安,安娜,汉娜”
我需要更新代码来查找单元格中的完整姓名(Hannah) (它将有注释并提到人员的全名),并返回没有分词的完整姓名(Hannah > Hannah)。有人知道怎么做吗?
Public Function NameLister(r1 As Range, r2 As Range) As String
Dim Sentence As String
NameLister = ""
我有大量的txt文件,我想搜索特定的单词。我的方法是使用excel宏打开word中的txt文件,而不是搜索我在excel文件中提供的每个单词列表。它给了我一个列表,每个单词在每个文档中出现的频率。我使用以下代码成功地做到了这一点:
Sub CounterofWords()
Application.ScreenUpdating = False
Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.application")
wdApp.Visible = False
For d =
每天我都收到如下所示的值,因为为了自动化,我希望从文本中获取字符串的最后一部分。例如,从下面的
( a) 999999000045090
( b) 9990090105
( c) 9999010000
( d) 990000660000
根据以上所述,我需要按这里给出的正确值来获取实际值。
( a) 45090
( b) 90105
( c) 10000
( d) 660000
因为长度是可变的而不是固定的,所以我需要帮助来解决
我需要得到子匹配字符串的索引位置值。根据文档,我已经阅读了这个,并了解了FirstIndex属性以获得匹配字符串的位置。
但这只适用于一维匹配字符串。我无法将FirstIndex应用于子匹配。请参阅
我试过这种格式,
Dim myRegExp As Object, match As MatchCollection
Dim matched As String
Set myRegExp = CreateObject("VBScript.RegExp")
myRegExp.pattern = fi
我需要从字符串中提取唯一的单词和数值。此时,我有一个函数,它去掉所有内容,只返回字母数字单词。我还需要认识到,当一个词真的是一个日期或一个数字,并防止文本被分开。我该怎么做?
下面是我目前拥有的拆分器函数:
Public Function GetAlphaNumericWords(ByVal InputText As String) As Collection
' This function splits the rich text input into unique alpha-numeric only strings
Dim words() As String
Di
我是一个新手,当涉及到VBA,宏和模块,所以请包括具体的步骤。如何删除单个单元格中的重复短语,如下所示:
"Brotherhood Of Man - United We Stand Brotherhood Of Man - United We Stand"
我想留下的是:
"Brotherhood Of Man - United We Stand"
我正在使用excel打开一个文本文件,找到某个字符串,然后将其替换为空/删除它。显然,我很难弄清楚星号/通配符的正确语法,希望这对某些人来说是一个简单的答案!
下面是我的代码的一个简单示例,以防它有一些隐藏的影响。
Sub ReplaceText()
Dim DataFind As String
Open "ORIGINAL\073347.TXT" For Binary As #1
DataFind = Space$(LOF(1))
Get #1, , DataFind
Close #1
'<< 073347 &
很抱歉,由于我找不到答案,这件事已经发到其他地方了。
我试图使用InStr函数搜索任何数字,后面跟着字母"m“。我得到了下面的代码,我认为这些代码应该有效,但是它不识别"1m“(1M)或任何变化,并返回0。
Public Function instrstring(strTest As String) As Long
Dim i As Long
PosOfFirstDigit = 0
For i = 1 To Len(strTest)
If Mid$(strTest, i, 1) Like "#" & "m
我有以下正则表达式:
(?<prefix>\S*?)\h*(?<score>\d+[+-]?)\s*(?<suffix>.*?(?:[A-Z]{2}|\d{2})[A-Z]{2}\d{2})
当目标文本包含三个捕获组中的每一个时,表达式工作得很好,但如果情况并非如此,则会产生奇怪的结果。例如,以下文本将产生以下结果:
^15+ vwu&ob12Ai18 => This one works. All three groups
^15+ => This does not produce a match
vwu&ob12Ai18
我需要做的是在单元格中的每个介词前面加上一个加号+?出于某种原因,\b不会为我工作。
在JavaScript中,它应该工作得很好:
(\bof\b|\bat\b)
//change with
+$1
但是Excel中具有相同正则表达式的VBA脚本与任何内容都不匹配。
示例:
И отдохнуть от них было для него спасением от мук.
其结果应该是:
И отдохнуть +от них было +для него спасением +от мук.
请注意,"отдохнуть“一词的内部有"от”。
代码本身(在这里的某个地方)
有人能帮我删除HTML代码并在excel中填充不同的列吗?
就像。如果我的HTML代码是:
<p></p>10-16-2013 22:35<br/>I love pizza! Ordering was a breeze!<p></p>10-16-2013 13:19:46<br />this has time stamps too!<p></p>10-21-2013 11:55<br />This is a test<br />
如何像这样在Excel中将其作为单独的列输出?
我试图通过宏替换Excel 2003 (VB5.5)中的字符串(例如所有数字)。现在,我有这样的代码:
Sub DeleteDigits()
Dim hLink As Hyperlink
Dim wSheet As Worksheet
For Each wSheet In Worksheets
For Each hLink In wSheet.Hyperlinks
hLink.Address = regEx.Replace(hLink.Address, "\d", "")
Next hLink
Next wSheet
End S
我试图从这个表达式中提取第一组数字"CSTAR ADJ REF # A-3080101078AZ键控错误定金$ 938,710.33 on 05/20/2011项目键控“。也就是说,我只想得到一个相邻单元格的"3080101078“。
我试过这样做:
Function CleanString(strIn As String) As String
Dim objRegex
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
.Global = True
我试图将正则表达式模式传递给Excel VBA中的一个函数,但该模式似乎没有任何效果。我插入了msgbox‘s,看看字符串是什么样子的,结果没问题。这是我正在使用的代码。
Sub clean_COP_names()
Dim strSheet As String
Dim strPatternOrig As String
Dim strRow As Integer
Dim strCol As Integer
Dim UpBound As Range
Dim LowBound As Range
Dim strUpBoundRow As Integer
Dim strUpBoundColumn A
我一遍又一遍地重复下面的消息错误“第2行中语句的意外结束”,我看不到它有什么问题吗?我做错什么了..。
Sub Main()
Dim regex As Regex = New Regex("\d+")
Dim match As Match = regex.Match("Dot 77 Perls")
If match.Success Then
MessageBox.Show(match.Value)
End If
End Sub
我有一个这样的文本文件:
Start
<Not Present>
Start
<Word>
End
Start
<Word>
End
Start
<Antoher>
End
End
我必须编写一个regEx,它只提供包含<Word>的"Start...End“块作为结果。
我尝试过这样的东西:
(Start[\s\S]+?(<Word>.*)[\s\S]+?End)
我得到了两个子匹配作为结果。第一个子匹配:
Start
<Not Pre