代码实现
For i As Integer = CurrentTable.TopRow To CurrentTable.BottomRow For j As Integer = CurrentTable.LeftCol To CurrentTable.RightCol CurrentTable(i,j) = ClipBoard.GetText NextNext