1　Rclick　983    265　　　-　　asdfgh

2　sleep　500　　-　　　-　　asdrty

3　Lclick　653　774　　　-　　qwefgh

4　sleep　500　　-　　　-　　qwerty　　　

クリップボードとデータのやりとりをする：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmougwww.moug.net

MPP Utilityの詳細情報 : Vector ソフトを探す！マウスポインタ位置情報に関した様々な機能を提供する統合ユーティリティwww.vector.co.jp

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

Private Type Position
    x As Long
    y As Long
End Type
Declare Function SetCursorPos Lib "User32" (ByVal x As Long, ByVal y As Long) As Long
Declare Sub mouse_event Lib "User32" ( _
    ByVal dwFlags As Long, _
    Optional ByVal dx As Long = 0, _
    Optional ByVal dy As Long = 0, _
    Optional ByVal dwDate As Long = 0, _
    Optional ByVal dwExtraInfo As Long = 0)
Declare Function GetCursorPos Lib "User32" (lpPoint As Position) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Sub LeftClick()
    mouse_event 2
    mouse_event 4
End Sub

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Sub RightClick()
    mouse_event 8
    mouse_event 16
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Sub Sample2()
    Dim WSH As Object
    Set WSH = CreateObject("WScript.Shell")
    WSH.Popup "5秒後、自動的に閉じます", 1, "Title", vbInformation
    Set WSH = Nothing
End Sub

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Sub 座標を調べる()
    Dim pos As Position
    Call GetCursorPos(pos)
    Debug.Print pos.x, pos.y
    MsgBox pos.x & ", " & pos.y
End Sub

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

Sub メイン操作()
Application.ScreenUpdating = False

goal = Cells(Rows.Count, 5).End(xlUp).Row

For st = 1 To goal
    Dim buf As String, buf2 As String, CB As New DataObject
    buf = Cells(st, 5).Value
    With CB
        .SetText buf        ''変数のデータをDataObjectに格納する
        .PutInClipboard     ''DataObjectのデータをクリップボードに格納する
    End With
        For turn = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            t = Cells(turn, 1).Value
            x = Cells(turn, 2).Value
            y = Cells(turn, 3).Value
        
            Select Case t
                Case "sleep"
                    Sleep (x)
                
                Case "Lclick"
                    SetCursorPos x, y  '調べておいた座標を入力
                    LeftClick
                    
                Case "Rclick"
                    SetCursorPos x, y  '調べておいた座標を入力
                    RightClick
                    
                Case "sendkey"
                    SendKeys "ABC"
                    
            End Select
        Next
    Dim WSH As Object
    Set WSH = CreateObject("WScript.Shell")
    WSH.Popup st & "/" & goal & "完了！！", 1, "Title", vbInformation
    Set WSH = Nothing
Next

MsgBox "全" & goal & "回　完了！！"
Application.ScreenUpdating = True
End Sub

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

Sub 文字列パターン()

'各列最終行取得
a = Cells(Rows.Count, 1).End(xlUp).Row
b = Cells(Rows.Count, 2).End(xlUp).Row
c = Cells(Rows.Count, 3).End(xlUp).Row

'1行目から各列最終行まで繰り返し
For st = 1 To a
    For nd = 1 To b
        For rd = 1 To c
            x = x + 1
            Cells(x, 5) = Cells(st, 1) & Cells(nd, 2) & Cells(rd, 3) 'E列に結合して転記
        Next rd
    Next nd
Next st

End Sub

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー