Excel怎么设置类？

你讲的有点象数据透视表，自己研究下吧

很简单,将常量换成相应数值，如下：
Dim woexcel
Set woexcel = CreateObject("Excel.Application")
woexcel.DisplayAlerts = False
woexcel.Visible = True
woexcel.Workbooks.Open ("c:\activex.xlsx")
'将工作表第一张表格设置为活动
woexcel.Worksheets(1).Activate
'设置纸张类型
woexcel.ActiveSheet.PageSetup.PaperSize = 9
'打印方向设置为横向：
woexcel.ActiveSheet.PageSetup.Orientation = 2

说明：
'xlLandscape 2 横向模式。
'xlPortrait 1 纵向模式。
'xlPaper11x17 17 11 英寸 x 17 英寸
'xlPaperA3 8 A3（297 毫米 x 420 毫米）
'xlPaperA4 9 A4（210 毫米 x 297 毫米）
'xlPaperA4Small 10 A4（小）（210 毫米 x 297 毫米）
'xlPaperA5 11 A5（148 毫米 x 210 毫米）
'xlPaperB4 12 B4（250 毫米 x 354 毫米）
'xlPaperB5 13 A5（148 毫米 x 210 毫米）

vba中支持系统常量，但是vbs中没有这些常量，应该换成相应数值，数值可以在vba帮助中查找。

你这录制的宏吧，录制的一般都是rc引用方式不好理解和操作，我改写了一个
你可以试着改一下表名字和区域就可以了！
option explicit
sub freq()
dim a as variant, b as variant, c as variant
with sheets("sheet1")
a = .[a1:a10]
b = .[b1:b3]
c = application.transpose(application.frequency(a, b))
.[c1].resize(ubound(c), 1) = application.transpose(c)
end with
end sub