求助：如何用按键精灵处理Excel数据

gundammarkⅡ

有表格A和表格B，表格A中的部分行的数据（非全部）需要从表格B里查找出来复制平时都是取表头里名称那列用vlookup函数查找出来的，但这次发行A与B里的名称并不完全一致，B的名称比A要多了几个文字
由于无法得知B的名称多了那些字，暂时只想到用查找功能在B里找出来，再复制过去
于是想到把这些重复劳动交按键精灵，那么怎样才能实现这个操作？

HYNDコン

写脚本，一个比较好的思路是把动作先粗分。讲个脑筋急转弯：如何把大象放进冰箱里？第一步：打开冰箱门；第二步，把大象放进去；第三步，关上冰箱门。博人一笑的急转弯却蕴含着人类处理事情的逻辑。我们可以把一个复杂的操作，拆分成可重复的简单操作，实现这些简单操作的脚本会比较好写。

获取两个Excel的句柄。
A复制表A指定表头()
B用复制内容在B表查询()
C用若干次方向键复制B表内容()
D用若干次方向键粘贴进A表()
E用若干次方向键选中表A下一个表头()
A复制表A指定表头()
B用复制内容在B表查询()
……

然后详写以上子函数的代码即可。

上述操作的关键在于B函数能否成功查询到，如果无法成功查询到，那么要写个判断，让变量：是否成功查询 = 0 ，让CD函数在变量：是否成功查询 = 0 时不工作，即跳过CD操作。判断功能可以用指定区域找图函数来实现。

gofbayrf

先干掉數據輸入不規范的人吧

readmetxt

=VLOOKUP( 要查找的单元格&"*",目标选区,列数,false)大概是这个意思？

HYNDコン

readmetxt 发表于 2019-2-11 14:46
=VLOOKUP( 要查找的单元格&"*",目标选区,列数,false)大概是这个意思？

这个只能通配后面的字符串有异的情况。前后都加*不知道行不行？比如 "*"&要查找的单元格&"*"

spikedingo

用autoit获取两个excel文件的句柄就可以随意操作了

用stringInStr('B单元格内容', 'B单元格内容中与A相同的部分')函数来确定某一行为对应A内的数据

简单写一下

1. #include <Excel.au3>
   
2. #include <Constants.au3>
   
3. 
   
4. Opt('MouseCoordMode', 2)
   
5. AutoItSetOption("SendKeyDelay", 100)
   
6. ; 链接到已打开的excel工作表
   
7. Local $excelA = _ExcelBookAttach("A.xlsx" ,"FileName")
   
8. Local $excelB = _ExcelBookAttach("B.xlsx" ,"FileName")
   
9. ; 弹框请求起始循环的行数
   
10. Dim $readLine = 1
    
11. Dim $readLineB = 1
    
12. ; Dim $i = 102
    
13. 
    
14. ; While语句，A表b列没有数据时，则需要从B表取数据
    
15. While _ExcelReadCell($excelA,"b"&$readLine) = ""
    
16.         ; 取得A表a列值用于判断
    
17.         Local $sCheck = _ExcelReadCell($excel,"a"&$readLine)
    
18. 
    
19. 
    
20.         $readLineB = 1
    
21. 
    
22.         ; B表a列有数据时，进行读取，否则就不再遍历
    
23.         While _ExcelReadCell($excelB,"a"&$readLineB) <> ""
    
24. 
    
25.                 Local $sStr = _ExcelReadCell($excelB,"a"&$readLineB)
    
26.                 ; B表a列的值包含之前存的A表a列标题，则取B表b列的值去粘贴到A表
    
27. 
    
28.                 If StringInStr($sStr, $sCheck) Then
    
29.                         Local $Value = _ExcelReadCell($excelB,"b"&$readLineB)
    
30.                         ; 粘贴A表并跳出while
    
31.                         _ExcelWriteCell($excelA, $Value, "b"&$readLine)
    
32.                         ExitLoop
    
33.                 EndIf
    
34. 
    
35.                 $readLineB +=1
    
36.         WEnd
    
37.         ; 给A表检查完毕栏做个记号
    
38.         _ExcelWriteCell($excelA, 'done', "c"&$readLine)
    
39. 
    
40.         $readLine += 1
    
41. WEnd

复制代码