[已解决]根据数据表A列,在WORD中查找,将B列数据写入WORD查找到的字符旁边的单元格

LMY123

文件夹里的东西:

EXCEL数据表:


WORD原始表:

WORD结果表:

附件如下:
根据数据表A列,在WORD中查找,将B列数据写入WORD查找到的字符旁边的单元格.rar (20.69 KB, 下载次数: 13)

2016-9-14 16:05 上传

点击文件名下载附件

jiminyanyan

数据太少了。

LMY123

jiminyanyan 发表于 2016-9-14 18:27
数据太少了。

1. Sub addSheet()
   
2.     On Error GoTo lab
   
3.     With ThisWorkbook
   
4.         Set rngname = .Sheets("数据源").Range("a:a")
   
5.         Set rngword = .Sheets("数据源").Range("1:1")
   
6.         For Each temp In rngname
   
7.             If temp.Row <> 1 And temp.Value <> "" Then
   
8.                 .Sheets("模板").Copy after:=.Sheets(.Sheets.Count)
   
9.                 .Sheets(.Sheets.Count).Name = temp.Value
   
10.                 .Sheets(.Sheets.Count).[a65536].Select
    
11.                 i = 0
    
12.                 For Each temp2 In rngword
    
13.                     If temp2.Value <> "" Then
    
14.                         Debug.Print i
    
15.                         Set rngtemp = .Sheets(.Sheets.Count).Cells.Find(what:="*" & temp2.Value & "*", lookat:=xlWhole)
    
16.                         If Not rngtemp Is Nothing Then
    
17.                             rngtemp.Offset(, 1).Value = temp.Offset(, i).Value
    
18.                         End If
    
19.                     End If
    
20.                     i = i + 1
    
21.                 Next
    
22.                 .Sheets(.Sheets.Count).[a1].Select
    
23.             End If
    
24.         Next
    
25.     End With
    
26.     Exit Sub
    
27. lab:
    
28.     MsgBox "可能是工作表重名了！请检查。"
    
29.     If ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name Like "*模板*" Then
    
30.         Application.DisplayAlerts = False
    
31.         ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Delete
    
32.         Application.DisplayAlerts = True
    
33.     End If
    
34.    
    
35. 
    
36. End Sub

复制代码

LMY123

LMY123 发表于 2016-9-14 19:03

和这个有点类似
FIND.rar (12.51 KB, 下载次数: 27)

2016-9-14 19:04 上传

点击文件名下载附件

jiminyanyan

是分享还是求助。

LMY123

jiminyanyan 发表于 2016-9-14 19:27
是分享还是求助。

我最后传的文件是EXCEL在EXCEL中查找,我想实现的是EXCEL中的字符在WORD中查找,并把EXCEL对应诉第二列数据写入WORD中

jiminyanyan

LMY123 发表于 2016-9-14 19:34
我最后传的文件是EXCEL在EXCEL中查找,我想实现的是EXCEL中的字符在WORD中查找,并把EXCEL对应诉第二列数据 ...

例子做的太简单，姓名，地址这些一定在WORD中的表格里出现？一定在第一列？

LMY123

jiminyanyan 发表于 2016-9-14 20:51
例子做的太简单，姓名，地址这些一定在WORD中的表格里出现？一定在第一列？

位置不定,比如姓名在WORD第二排第三列,则张三WORD写入第二排第四列

jiminyanyan

LMY123 发表于 2016-9-14 20:56
位置不定,比如姓名在WORD第二排第三列,则张三WORD写入第二排第四列

那如姓名：在第二排最后一列，张三写到哪里呀？

jiminyanyan

LMY123 发表于 2016-9-14 20:56
位置不定,比如姓名在WORD第二排第三列,则张三WORD写入第二排第四列

最好来实战性的例子，闭门造车感觉没多少意思。