AutoHotkey实现在两个文本间交换数据

Loop, 3 ;循环3次

{

b = %a_index% ;计数器

IfWinExist 工作簿1 - Excel ;你的工作薄名称

{

WinActivate ;激活工作薄

if b=1

{

Send, #{Right} ;目的将文本居右摆放，其中#表示win键，{Right}表示右键

Sleep, 2000 ;停止2s,保证文本居右

}

MouseClick, left, 65, 255 + (b-1) * 18 ;找到需要输入的坐标选定，循环读取对应excel单元格坐标

Send ^c ;复制单元格内容

Sleep, 2000 ;停止2s,保证文本居右

}

IfWinExist 无标题 - 记事本 ;你的记事本名称

{

WinActivate ;激活记事本

if b = 1

{

Send, #{Left} ;目的将文本居左摆放，其中#表示ctrl键，{Right}表示右键

Sleep, 2000 ;停止2s,保证文本居右

}

Send ^v ;粘贴单元格内容，其中^表示ctrl键，

}

}