作者：乔山办公网日期：
返回目录：excel表格制作
这个使用数据透视表做最简单方便。将商品名称、颜色拖入行标签，日期拖入列字段，数量拖入数值区域即可完成。你可以发到3271614433qq邮箱，我帮你做。
=SUM(SUMIF(A:A,{"1月","2月","3月"},D:D))
或
将月份中的那个“份”去掉，用如下公式
=SUMIF(A:A,"<4",D:D)
你这个问题可以分为两步来完成：知
1、选中第一列数值-单元格右下角出现黑十字时按住道左键拖拽到自己需要的行数，要同时按住“Ctrl”键，这样拖拽版的效果是复制单元格。
2、将其余数值复制，在所需要的第一列后面，也就是权第二列第一行-选编辑菜单-选择性粘贴-转置命令，就行了。
答：我编写了段代码帮你一步完成吧。这是我的图，因为你的图看不到行号列标。
按ALT+F11组合键，打开VB窗口，执行"插入"-"模块"，复制下面e79fa5e98193e59b9ee7ad94362代码进去，在原格式表格为活动工作表的情况下，按F5运行程序，会自动生成新表结果。
Sub Demo()
Dim Arr()
Dim Orng As Range, Drng As Range
Dim NewSht As Worksheet
Dim i As Integer
Set Orng = Range("F3")
Arr = Range("G2:P2")
Set NewSht = Worksheets.Add
With NewSht
.Range("A2:C2") = Array("款号", "尺码", "数量")
Set Drng = .Range("A3")
Do Until IsEmpty(Orng)
For i = 1 To UBound(Arr, 2)
If Orng.Offset(0, i) <> "" Then
Drng = Orng
Drng.Offset(0, 1) = Arr(1, i)
Drng.Offset(0, 2) = Orng.Offset(0, i)
Set Drng = Drng.Offset(1, 0)
End If
Next
Set Orng = Orng.Offset(1, 0)
Loop
End With
MsgBox "转换完成", vbInformation, "提示"
End Sub