如图,我想要将前面的区域的数据,转换成后面区域的数据形式。
表格是这样的,横轴是B-K,纵轴是A2-A31,数据都是数字。
将B1和A2的数据结合,例如B1是“1.5”,A2是“5”,那么就结合成:“M1.5*5”,对应的数据是B2。 将这个结合的名称放到O列,数据放到P列。
然后继续结合B1和A3,A3是“6”,结合为:“M1.5*6”,数据是B3。
结合完成B列后,继续结合C列,D列,一直到K列。
结合完成的数据都排列在O P列即可。
如果遇到数据是空,那就不结合。
例如B11数据为空,那么就不需要结合B1和A11的数据,直接查找下一个。
代码如下:
Sub CombineData()
Dim ws As Worksheet
Dim i As Integer, j As Integer
Dim lastRow As Integer, lastColumn As Integer
Dim outputRow As Integer
Dim dataName As String, dataValue As Variant
Dim colLetter As String
' 设置工作表
Set ws = ActiveSheet
' 起始行和列
lastRow = ws.Cells(ws.Rows.Count