fieldset{padding:10px;}
那些(6,1),(13,1),(18,1)应该是第一列从0位置开始,第二列从6字符位置开始,第三列从13字符开始…以下是vba的帮助.LZ这样太没有效率了,应该自己去看录制的宏,自己看vba,自己在TextToColumns上按F1—————–TextToColumns方法参阅应用于示例特性将包含文本的一列单元格分解为若干列。expression.TextToColumns(Destination,DataType,TextQualifier,ConsecutiveDelimiter,Tab,Semicolon,Comma,Space,Other,OtherChar,FieldInfo,DecimalSeparator,ThousandsSeparator,TrailingMinusNumbers)expression必需。该表达式返回“应用于”列表中的对象之一。DestinationVariant类型，可选。指定MicrosoftExcel放置结果的位置的Range对象。如果该区域大于一个单元格，请使用左上角的单元格。DataTypeXlTextParsingType类型，可选。将被拆分到多列中的文本的格式。XlTextParsingType可为以下XlTextParsingType常量之一。xlDelimited默认值xlFixedWidthTextQualifierXlTextQualifier类型，可选。XlTextQualifier可为以下XlTextQualifier常量之一。xlTextQualifierDoubleQuote为默认值xlTextQualifierNonexlTextQualifierSingleQuoteConsecutiveDelimiterVariant类型，可选。如果该值为True，则MicrosoftExcel将把连续的分隔符识别为单个分隔符。默认值为False。TabVariant类型，可选。如果该值为True，则DataType为xlDelimited且以制表符为分隔符。默认值为False。SemicolonVariant类型，可选。如果该值为True，则DataType为xlDelimited且以分号为分隔符。默认值为False。CommaVariant类型，可选。如果该值为True，则DataType为xlDelimited且以逗号为分隔符。默认值为False。SpaceVariant类型，可选。如果该值为True，则DataType为xlDelimited且以空格为分隔符。默认值为False。OtherVariant类型，可选。如果该值为True，则DataType为xlDelimited且以OtherChar参数指定的字符为分隔符。默认值为False。OtherCharVariant类型，可选（当Other为True时为必需）。当Other为True时的分隔符。如果指定了若干字符，则仅使用其中的第一个字符而忽略其他字符。FieldInfoVariant类型，可选。包含单列数据拆分信息的数组。对本参数的解释取决于DataType的值。如果此数据由分隔符分隔，则本参数为由两元素数组组成的数组，其中每个两元素数组指定一个特定列的转换选项。第一个元素为列标（从1开始），第二个元素是xlColumnDataType常量之一，用以指定该列的拆分方式。XlColumnDataType可为以下XlColumnDataType常量之一。xlGeneralFormat表示常规xlTextFormat表示文本xlMDYFormat表示MDY日期xlDMYFormat表示DMY日期xlYMDFormat表示YMD日期xlMYDFormat表示MYD日期xlDYMFormat表示DYM日期xlYDMFormat表示YDM日期xlEMDFormat表示EMD日期xlSkipColumn表示跳过列只有在安装并选定了台湾地区语言支持时才可使用xlEMDFormat。xlEMDFormat常量指定使用台湾地区纪元日期。生命不在长而在于好，只要每一次尽力的演示，都值得鼓励与喝采。
