VBA Excel 列拆分
来源:互联网 发布:斗罗大陆3龙王传说淘宝 编辑:程序博客网 时间:2024/05/20 10:11
本人初次学习所写,有不好的地方还请指教
' 列拆分,并按照“|”来拆分,如果某列表头中包含“|”则进行拆分,否则不进行拆分
' 【数据替换数值版】中的数据Copy到该Sheet中Dim cSplit As Integer, cSplitName As String, stNewColumnsSplit As Worksheet
Application.StatusBar = "正在处理列拆分"
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
stReplaceTextVersion.Activate
stReplaceTextVersion.Copy After:=stReplaceTextVersion
Set stNewColumnsSplit = ActiveSheet
stNewColumnsSplit.Name = "列拆分" 'stConfigColumnsSplit.Name
For cSplit = 1 To stNewColumnsSplit.UsedRange.Columns.Count
cSplitName = stNewColumnsSplit.UsedRange.Cells(1, cSplit)
If InStr(cSplitName, "|") > 0 Then
stNewColumnsSplit.Columns(cSplit).Offset(, 1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove '该列的右侧插入一列
stNewColumnsSplit.Columns(cSplit + 1).Offset.Interior.Color = xlNone
stNewColumnsSplit.Columns(cSplit).Select '选中需要拆分的列,然后进行拆分
Selection.TextToColumns Destination:=Columns(cSplit), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
stNewColumnsSplit.UsedRange.Cells(1, cSplit + 1).Interior.Color = stNewColumnsSplit.UsedRange.Cells(1, cSplit).Interior.Color
End If
Next cSplit
stNewColumnsSplit.UsedRange.Font.Name = "Arial" '设置该Sheet字体样式
stNewColumnsSplit.Cells.EntireColumn.AutoFit
stNewColumnsSplit.UsedRange.Select
Application.StatusBar = ""
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
0 0
- VBA Excel 列拆分
- vba拆分excel表格
- VBA代码拆分excel
- Excel VBA 宏 拆分Excel表
- EXCEL 宏 拆分数据表 VBA 视频教程下载
- VBA excel显示列号
- EXCEL用VBA代码拆分sheet为新EXCEL文件
- excel一列数据拆分为两列
- VBA - 设置EXCEL列名为数字
- 使用VBA在Excel中分列
- Excel VBA获取最后一行列
- VBA获取excel行和列
- Excel VBA 列名列标转换函数
- 【VBA研究】用VBA取得EXCEL任意列有效行数
- VBA Excel 提取有用的列并作列排序
- 列拆分
- 利用JXL根据Exel的某一列进行拆分Excel
- 用VBA得到EXCEL表格中的行数和列数
- 好可怜国际化的方法个
- A - Truck History(prim求最小生成树)
- Python之网络爬虫完全教程
- 原始套接字
- Altium designer教程
- VBA Excel 列拆分
- calendar用法
- Merge k Sorted Lists Java
- uva -213Message Decoding
- UVA10112 Myacm Triangles
- 案例
- 德州头晕失眠怎么办
- 暗影寶庫相傳是幾千年前,魔族定居暗影山脈的第一代統領,以無上
- POJ 1654