vbs查找替换excel中字符串(vb查找和替换代码)

1. vb查找和替换代码

不用编程，用编辑-替换就行，在字体中设置替换的颜色

2. excel vba查找替换

Excel编辑单元格时,按下Alt+Enter,可以在单元格内换行，在VBA中,可以使用vbCrLf,表示换行符,即“Chr(13) & Chr(10)，换行符使用方法为：

1、选中数据单元格，点击“查找与选择-替换”。

2、按住“alt”键，在查找内容中用键盘右侧的小键盘输入“10”。

3、直接点击“全部替换”即可。

4、可以看到，所有换行符已被清除了。

3. vb查找替换字符串代码

Replace是Python、VB、ASP、Windows、SQL和Excel中的函数，功能都是执行替换操作.另外，replace在英语中的意思为take ones position.

Replace是VB、ASP、Windows、SQL和Excel中的函数，功能都是执行替换操作。

replace()为Python的常用对象方法。

方法功能

替换字符串中的指定字符

4. vba 查找和替换

几个替换的办法：函数substitude、ctrl+F批量替换、VBA

看看你的数据源是什么样子才好提供答案

5. vba替换字符串指定字符

当然可以，我以前写的，你可以参考一下：

Private Sub CommandButton1_Click()

On Error Resume Next

Dim iRow As Integer, myPath As String

Dim wdApp As Word.Application, wdDoc As Word.Document, wdRange As Word.Range

Dim 收文日期 As String, 标题 As String, 来文单位 As String, 文号 As String, 拟办情况 As String

'--------------------------------------------------------------------------------------------------------

Label3.Caption = "封面正在生成中..."

'--------------------------------------------------------------------------------------------------------

iRow = TextBox1.Text

'获取待填写信息

来文单位 = Cells(iRow, 3).Text

来文单位 = Replace(来文单位, Chr(10), "^p") '将excel中的换行替换成word中的换行

文号 = Cells(iRow, 4).Text

文号 = Replace(文号, Chr(10), "^p") '将excel中的换行替换成word中的换行

标题 = Cells(iRow, 5).Text

标题 = Replace(标题, Chr(10), "^p") '将excel中的换行替换成word中的换行

收文日期 = CStr(Year(Now())) & Cells(iRow, 6).Text

拟办情况 = TextBox2.Text

'--------------------------------------------------------------------------------------------------------

myPath = ThisWorkbook.Path & "\封面\"

'文件若已打开,则关闭已打开文件

For Each wdDoc In Documents

If InStr(1, wdDoc.Name, myPath & "(" & 收文日期 & ")" & 标题 & ".doc", 1) Then

wdDoc.Close savechanges:=wdDoNotSaveChanges

Exit For

End If

Next wdDoc

'--------------------------------------------------------------------------------------------------------

Set wdDoc = CreateObject(myPath & "空白模板.doc") '打开word

wdDoc.Activate

'--------------------------------------------------------------------------------------------------------

'填写文档

Set wdRange = wdDoc.Content '将word的文档内容赋予wdrange

wdRange.Find.Execute FindText:="{来文单位}", ReplaceWith:=来文单位, Replace:=wdReplaceAll

wdRange.Find.Execute FindText:="{文号}", ReplaceWith:=文号, Replace:=wdReplaceAll

wdRange.Find.Execute FindText:="{收文时间}", ReplaceWith:=收文日期, Replace:=wdReplaceAll

wdRange.Find.Execute FindText:="{内容摘要}", ReplaceWith:=标题, Replace:=wdReplaceAll

wdRange.Find.Execute FindText:="{办公室拟办}", ReplaceWith:=拟办情况, Replace:=wdReplaceAll

'--------------------------------------------------------------------------------------------------------

'文档另存为

wdDoc.SaveAs Filename:=myPath & "(" & 收文日期 & ")" & 标题 & ".doc"

End Sub

6. vb 替换字符串

s=string$(要生成的字符串的长度,要生成的那个字符串的ASCii码)例如：s=string$(4,66)则s的值就是"BBBB"或者用双引号例如s=string$(5,"A")其结果为"AAAAA"

顶一下

(0)

0%

踩一下

(0)

0%