第2个回答 2018-12-10
在C13单元格输入以下公式,然后向右向下填充公式
=OFFSET($B$3,INT((ROW(A1)-1)/3)+MOD(ROW(A1)-1,3),COLUMN(A1)-1)*OFFSET($O$3,MOD(ROW(A1)-1,3),)
第4个回答 2018-12-10
很简单的一个VBA题,多次循环就能搞定,为什么都要回复公式?
Sub KS()
Dim irow1%, irow2%, i%, j%, k%, l%
irow1 = [a10].End(xlUp).Row '[a10]是你第一个表的A列最大有值单元格,可以直接赋值
irow2 = [p10].End(xlUp).Row '[a10]是你第一个表的A列最大有值单元格,可以直接赋值
k = 13 '这个值是你建表的起始行号
For i = 3 To irow1
For j = 3 To irow2
Cells(k, 1) = Cells(i, 1)
Cells(k, 2) = Cells(j, 16)
For l = 2 To 13
Cells(k, l + 1) = Cells(i, l).Value * Cells(j, 17)
Next
k = k + 1
Next
Next
End Sub