Range("b1") = "a" & Chr(10) & "b" '换行答输入 Range("a1:a10").Copy Range("c1") 'A1:A10的内容复制到C1 ActiveSheet.Paste Range("d1") '粘贴至D1 Range("e1").PasteSpecial (xlPasteValues) '只粘贴为数值 ActiveSheet.Paste Range("f1") '粘贴到f1 Range("a1:a10").PasteSpecial Operation:=xlAdd '选择粘贴-加 Range("G1:G10") = Range("A1:A10").Value Range("b1:b10").FillDown '向下填充公式
Range("4:4").SpecialCells(xlCellTypeConstants) = "" If Cells(x, 3) <> Cells(x + 1, 3) Then Dim x As Integer, m1 As Integer, m2 As Integer If Cells(x, 1) = "" Then Exit Sub If Cells(x, 3) <> Cells(x + 1, 3) Then Cells(x + 1, "c") = Cells(x, "c") & " 小计" Cells(x + 1, "h") = "=sum(h" & m1 & ":h" & m2 & ")" Cells(x + 1, "h").Resize(1, 4).FillRight t = Range("c65536").End(xlUp).Row If Cells(x, 3) <> Cells(x - 1, 3) Then Cells(Cells(x, "C").Offset(1, 0).End(xlDown).Row + 1, "C") = Cells(Cells(x, "C").Offset(1, 0).End(xlDown).Row, "C") & " 小计" Cells(Cells(x, "H").Offset(1, 0).End(xlDown).Row + 1, "H") = _ Application.Sum(Range(Cells(x, "h").Offset(1, 0), Cells(x, "H").Offset(1, 0).End(xlDown))) Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
|