Tag: 分割

在VBA中拆分数据

目前我面临一个问题,特别是我不知道如何解决这个问题。 我有一张桌子: ————————– | d.dasd | | dasda.dasda | | fdsfs.fsdf | | fdsfdsaf.fdsafasdf | | dasda.dasdasdas | ————————— 事情是,我想删除“点”后的string。 我在VBA中写了一个脚本: Sub SplitText() Dim Counter As Integer Counter = 1 Dim LastRow As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row Dim Temp As String Dim Splited As String Do While Counter <= LastRow Temp = Cells(Counter, 1).Value […]

如何从时间分割数据?

我试图从单个单元格中分割数据,我需要用公式来完成。 我的数据如下所示: 2016-04-12 07:45:41 我试图用LEFTfunction做到这一点,但结果只是数字和更改单元格types不起作用。

如何将文本拆分到不同的列或从原始列中删除文本?

我已经复制了从D9开始的一列数据到D – 无论如何,复制的数据都有十进制值和文本。 数据在列D中的每个单元格中都不相同 例 D9:1675.87 L / s D10:1555.87 L / s D11:1635.87 L / s这是我的代码我试过.. Dim c As Collection, K As Long Set c = New Collection K = 9 On Error Resume Next For Each r In Range("D9:D" & Cells(Rows.Count, "D").End(xlUp).Row) ary = Split(r.Text, ",") For Each a In ary c.Add a, […]

如何拆分一个string和存储variables?

我想分割一个特定的string,并将它们存储在一个variables中。 GetID = "13H4" sSplit = Split(GetID) 我想拆分它们,并将“13”存储在一个variables中,将“4”存储在另一个variables中。 我不想使用MID,RIGHT,LEFT方法,因为我不想把string的位置设置为“13”或“4”。 你们知道该怎么做吗? 多谢你们。

如何在Google表格中将每个字符分成一个新的一行?

我正在翻译游戏,而游戏的文本框只支持每行最多50个字符。 有没有办法使用一个公式来分隔整个句子每50个字符或整个单词(49,48,47等)? 我目前正在使用这个公式。 =JOIN(CHAR(10),SPLIT(REGEXREPLACE(A1, "(.{50})", "/$1"),"/")) 这个代码的问题是,它正好分裂为50个字符(一次),并且会分裂在这个词的中间。 所以,我的目标是,如果第50个字符位于字中间,那么我的目标就是不要在第50个字符上分割,因为它只适用于第一行,所以规则也适用于其余的行。 请看看这个testing谷歌表来得到我在说什么的例子。 如果在Google表格上无法做到这一点,我不介意转移到Excel提供的代码。 为了logging,我在2天前曾在Google的产品论坛上提出过问题,至今仍未收到答复。

Excel VBA将csvstring处理成数组

我有通过http下载获得的csvstring(utf-8)。 根据情况,string中的数据可能包含不同数量的列,但每个单独的时间string将被处理,它将包含相同数量的列并且是连续的。 (数据将是均匀的)。 该string可以包含任意数量的行。 第一行将永远是标题。 string字段将被封装在双引号中,并可能包含逗号,引号和换行符 。 引号和双引号内的string是通过加倍逃脱所以“”和“ 换句话说,这是一个格式良好的CSV格式。 Excel通过它的标准文件打开机制没有问题格式化这个数据。 不过,我想避免保存到一个文件,然后打开CSV,因为我需要在某些情况下处理输出,甚至合并工作表上的现有数据。 ( 通过编辑添加以下信息 ) Excel应用程序将分发到不同的目的地,我想避免如果可能的潜在的权限问题,似乎什么都不写入磁盘是一个很好的方法来做到这一点 我正在想像下面的伪类似的东西: rows = split(csvString, vbCrLf) 'wont work due to newlines inside string fields? FOREACH rows as row fields = split(row, ',') 'wont work due to commas in string fields? ENDFOR 显然,不能处理包含特殊令牌的字段。 什么是parsing这些数据的可靠方法? 谢谢 编辑13/10/2012数据样本 csv,因为它会出现在记事本中(注意不是所有换行符都是\ r \ n有些可能是\ n) LanguageID,AssetID,String,TypeID,Gender […]

如何将此string拆分为电子表格中的单独列?

从networking上下载数据后,我有以下一组数据。 原始数据应该是Type为“preference”,属性为“Create,Filter,Group,Nillable,Sort,Update”,描述为“ID”。 TypereferencePropertiesCreate, Filter, Group, Nillable, Sort, UpdateDescriptionID TypereferencePropertiesCreate, Filter, Group, Nillable, Sort, UpdateDescriptionID of the account associated with this opportunity. TypecurrencyPropertiesCreate, Filter, Nillable, Sort, UpdateDescriptionEstimated total sale amount. 有在线教程来教导如何使用分隔符(例如电子表格中的“,空格或其他符号”)分隔string,但是我的数据集是不同的。 如何将“types”,“属性”和“描述”分开?

在vba中用破折号分隔字符

我试图用VBA中的( – )破折号来分隔字符,然后将它粘贴到B列。所以在我的专栏中AI有TOM-JAY-MOE-XRAY。 现在,如果我想将其分割并粘贴到列B = TOM,C = JAY等4个不同列中。 这里是我的代码和图像更好地理解。 Sub x() Dim sheet As Worksheet Set sheet = ActiveWorkbook.Worksheets("Sheet1") For x = 1 To sheet.Range("A" & sheet.Rows.Count).End(xlUp).Row sheet.Range("A", "B", "C", "D" & x) = InStr(1, sheet.Cells(x, 1), "-") Next x End Sub

将分隔string分隔符不一致

我有一个包含城市,州和邮政编码的专栏。 CITY_STATE_ZIP ————————————————– Monroe, IN 46711 South Bend, IN 46615 Alexandria, IN 46001 我希望将三个字“CITY_STATE_ZIP”拆分成不同的列。 CITY STATE ZIP ———- ———- ——————– Monroe IN 46711 South Bend IN 46615 Alexandria IN 46001

Excel VBA-拆分单元格串入单个单元格并将单元格复制到新表单中

我正尝试将单元格string拆分为一个Excel电子表格中的各个单元格,然后将具有新标题的拆分单元格复制并粘贴到新工作表中。 下面是我想要分裂的图像。 我正在试图分裂 这是我正在努力实现的。 想要的结果 。 不幸的是,我是新的stackoverflow,所以我的图像不会显示。 如果用户不希望点击链接,我会尝试通过其他方式解释: 我有不同的细胞,其中包含我想分裂的长string。 下面是我想要拆分的两行的示例。 Setup | MC 1: 1 x 18 , MC 2: 2 x 23 , MC 3: 2 x 32| ————|———————————————- Microphone | 2 x PHILIP DYNAMI SBMCMD | (其中|表示列中断) 我想用以下标题拆分上面的内容,如下所示。 Setup | |Speaker|Tables|People|Speaker|Tables|People|Speaker|Tables|People| ———————————————————————————- | | MC1 | 1 | 18 | MC2 | 2 […]