使用数字作为数据输入列号而不是字母。

子运行（）
Dim Rows（9），Column（9），n，numbercopied As Variant
Column（1）= 2
行（1）= 8
列（2）= 2
行（2）= 9
列（3）= 2
行（3）= 10
列（4）= 8
行（4）= 8
列（5）= 8
行（5）= 9
列（6）= 8
行（6）= 10
列（7）= 2
行（7）= 14
列（8）= 2
行（8）= 15
列（9）= 2
行（9）= 16
数字复制= 9
n = 1
对于k = 1到数字复制的表格（"Sheet2"）。单元格（n，1）=表格（ "Sheet1"）。单元格（行（k），列（k））
n = n + 1
下一个k
结束子

我把它放进去进入"sheet2"在A列或1列中。您可以将它们放在任何您喜欢的地方。

Enter you data using a number as the column number instead of a letter.

Sub run()
      Dim Rows(9), Column(9), n, numbercopied As Variant
           Column(1) = 2
           Rows(1) = 8
           Column(2) = 2
           Rows(2) = 9
           Column(3) = 2
           Rows(3) = 10
           Column(4) = 8
           Rows(4) = 8
           Column(5) = 8
           Rows(5) = 9
           Column(6) = 8
           Rows(6) = 10
           Column(7) = 2
           Rows(7) = 14
           Column(8) = 2
           Rows(8) = 15
           Column(9) = 2
           Rows(9) = 16
           numbercopied = 9
           n = 1
      For k = 1 To numbercopied
           Sheets("Sheet2").Cells(n, 1) = Sheets("Sheet1").Cells(Rows(k), Column(k))
            n = n + 1
      Next k
End Sub

I put it into "sheet2" in column A or 1.  You can put them anywhere you like.