excel vba 官方文档
https://docs.microsoft.com/zh-cn/office/vba/api/overview/excel
VBA获取,录制宏,看对应要用的vba代码
把表格分组 合起来(group)
vba
Worksheets("Sheet1").Outline _
.ShowLevels rowLevels:=3, columnLevels:=1
Python
sht1.api.Outline.ShowLevels(0,1)
单元格里的值向右对齐
vba
Range("AN2").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Python
sht1.range('AL2').expand('right').api.HorizontalAlignment = -4131
XLHALIGN 枚举 (EXCEL)
名称 值 说明
xlHAlignCenter -4108 居中。
xlHAlignCenterAcrossSelection 7 跨列居中。
xlhaligndistributedxlhalignfill -4117 分散对齐。
xlhaligngeneral 5 填充。
xlhalignjustify 1 按数据类型对齐。
xlhalignleft -4130 两端对齐。
xlHAlignLeft -4131 靠左。
xlHAlignRight -4152 靠右。
加四面边框
vba:
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Python
sht1.range('AK2').expand('right').api.Borders.LineStyle = 1
xlContinuous 1
实线。
xlDash -4115
虚线。
xlDashDot 4
点划相间线。
xlDashDotDot 5
划线后跟两个点。
xlDot -4118
点线。
xlDouble -4119
双线。
xlLineStyleNone -4142
无线。
xlSlantDashDot 13
倾斜的划线。
高级筛选
sht1.range('A1').expand('table').api.AdvancedFilter(Action=2, CriteriaRange=Criteria_Range.api,
CopyToRange=sht2.range('A1').api)
sht1.range(‘A1’).expand(‘table’)是查找区域,
Action=2将筛选出的数据复制到新区域
Action=1的话,在当前区域直接筛选
CriteriaRange就是筛选条件所在单元格区域
CopyToRange把筛选出的数据复制到新区域,所有的range要.api
移动sheet至第一个
wb.sheets('结果').api.Move(wb.sheets(1).api)