实现行列二维到一维转换的EXCEL VBA代码
有一张EXCEL工作表,含有18行(1~18),51列(A~AY),现在要求将原来的每一列数据依次排成一长列(共18*51行,每行一个数据)原始数据在SHEET1中,转换后的数据在SHEET2的B列。Dim bq1, bq2 As StringDim xb1, xb2 As StringDim i, j, x, a, b As Integer bq1 = "Sheet1"
原创
2013-04-24 17:56:04 ·
1859 阅读 ·
0 评论