keydown事件
If e.keycode = Keys.V AndAlso e.Control = True Then Dim t As Table = Tables("表A") For i As Integer = t.LeftCol To t.RightCol For j As Integer = t.TopRow To t.BottomRow t(j, i) = ClipBoard.GetText Next Next End If