Tag: 文本到列

如何刷新文本到列函数vba的设置

我有一个有几个function的文件。 其中之一将文本分为选定范围的列： Sub txt2clmns() Dim rng As Range Set rng = [i5] Set rng = Range(rng, Cells(Rows.Count, rng.Column).End(xlUp)) rng.TextToColumns _ Destination:=Range("J5"), _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=True, _ Semicolon:=True, _ Comma:=False, _ Space:=False, _ Other:=False rng.TextToColumns _ Destination:=rng, _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=True, _ Semicolon:=False, _ Comma:=False, _ Space:=False, _ […]

文字列循环

所以基本上我有多列文本，我想改变为数字。 现在我面对的问题是我得到的代码，但我不明白如何运行一个循环，以select下一个第三列。 这是我的代码： Sub Texscolumn() Range("AI2:AI96").Select Selection.TextToColumns Destination:=Range("AI2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 9), Array(6, 9), Array(7, 9), Array(8, 9)), TrailingMinusNumbers:= _ True End Sub 所以我想要的下一列是AJ2：AJ96。 我似乎无法弄清楚如何通过更改这样的列做一个循环。

错误date和时间文本到列macrosExcel VBA

我在编码macros时遇到了麻烦，要将具有date和时间信息的单元格分隔到具有TexttoColumns公式的列中。 这是我在列中的信息。 开始date 1900-01-01（00:00） 2008-09-25（12:46） 我想要所有的列，但标题被拆分，在一列中的date和在下一个小时。 在我有macros，我能find我想分裂的列，我创build新的列正确的右侧。 但是，我无法做到列公式的文字。 这是我有的代码： Sub Separate_Date() Cells.Find(What:="Fecha Inicio Proceso", After:=Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate Col = ActiveCell.Column LastRow = ActiveCell.End(xlDown).Row Cells(ActiveCell.Row, ActiveCell.Column + 1).EntireColumn.Insert Columns(Col).Select Range(Selection, Selection.End(xlDown)).Select ********Selection.TextToColumns Destination:=Range(Cells(2, Col), Cells(LastRow, Col)), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :=" ", FieldInfo:=Array(Array(1, […]

单独的行分成列

我有一个文本单元格。 文本string如下所示： Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text. 我阅读使用Text-to-column ，使用作为分隔符Other和填写通过在其他字段中按Alt 0010 。 但是，只有第一行停留。 我想要的结果是： 任何build议如何通过换行来分隔？

计算两个或多个空格后的字符位置

我试图返回一个值等于两个或多个空格后的第一个字母的位置。 我有一个工具，可以将可变列长的表格提取到TXT文档中。 我需要将这些表格放入Excel工作表中，而不必为每个表格中的每一列都设置固定的宽度（这是很多编码工作）。 我想根据第一个字符在两个或多个空格后的位置来find更dynamic的方法。 请记住，并非所有行都已完全填充，但第一行将成为获得列宽度的理想select。 举一个例子，文本的行看起来像这样 John Robert Eric Tom 10 11 143 43 21 265 56 99 241 76 到目前为止，我只能根据下面的代码使其工作在固定宽度 Sub exporttosheet() Dim fPath As String fPath = "C:\test.txt" Const fsoForReading = 1 Const F_LEN_A As Integer = 10 Const F_LEN_B As Integer = 23 Const F_LEN_C As Integer = 7 Const F_LEN_D As […]