标签：居中 vba 1048576 单元格 rng ActiveSheet Range 目标值 筛选

Sub 德赛()

Dim x
Dim rng As Range

Set rng = Range("$F$1:$F$1048576") '筛选目标列

If ActiveSheet.AutoFilterMode = True Then '关闭筛选模式

ActiveSheet.AutoFilterMode = False

End If

rng.AutoFilter Field:=1, Criteria1:="=*" & x & "*", Operator:=xlAnd '根据给定搜索条件筛选

For i = 1 To Range("A1").CurrentRegion.Rows.Count '将筛选结果中字符串的第8个字符开始连续6个放在第7列

c = Worksheets(1).Cells(i, 4).Value

Worksheets(1).Cells(i, 7).Value = Mid(c, 8, 6)

Next

With Range("G1:G1048576") '筛选结果居中显示
.HorizontalAlignment = xlCenter '水平居中baidu
.VerticalAlignment = xlCenter '垂直zhi居中
End With
'
'With rng

'.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Shift:=xlShiftUp

'x = "1013B"
'ActiveSheet.Range("$F$1:$F$1048576").AutoFilter Field:=1, Criteria1:="=*" & x & "*", Operator:=xlAnd
'Set rng = Range("$F$1:$F$1048576")
'rng.Offset(1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlShiftUp
End Sub

标签：居中,vba,1048576,单元格,rng,ActiveSheet,Range,目标值,筛选
来源： https://www.cnblogs.com/yukit/p/14084048.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。