Tag: 分割

按可变行数拆分Excel电子表格（例如：大约5,000行加上最多1,000行）

如何将excel文件拆分成几个不知道提前知道Excel分割行数的文件，但只知道一个粗略的数字在哪里拆分？ 例如：总共100,000行。 在列A中，我有许多行由相同的单元格内容开始。 我知道我最多有1000行具有相同的列A内容。 行＃：列A内容 ： ROW1：namedBB 2行：namedBB … row251：namedBB row252：namedCC … row4,999：namedDD row5,000：namedDD … row5,365：namedDD row5,366：namedKEI …等等… 在这个例子中，我想将文件分割成大约每行5000行。 但事实上，第一个分割应该是完全在5,366（所以第一个xslx文件将有从第一行到第五行，第365行的内容，第二个xslx文件将从第5366行到…）。 这里是我用来分割固定数量的行的VBA代码。 Sub Splitter_fixed_number_of_rows() Application.DisplayAlerts = False Application.ScreenUpdating = False Dim lTop As Long, lBottom, lCopy As Long Dim LastRow As Long, LastCol As Long Dim wbNew As Workbook, sPath As String With ThisWorkbook.Sheets("recap") ' sheetname […]

Excel VBA – 将数据拆分/分类到报表中

我正在尝试将我的原始数据分类为报告格式。 例如我的原始数据如下图所示： 团队名称，员工姓名，他们旅行的国家，季度 我希望我的数据按照给定的格式进行拆分/sorting，比如row包含team1中员工的名字（假设我们在team1中有6名员工），列中包含所有4个季度，解决scheme看起来像matrix（6×4），其中国家名称是填充单元格。 另外，如果员工在同一季度访问过美国和英国，他的手机将同时显示两个国家的姓名。 图2是我正在寻找的解决scheme： 请帮助我，我试图写这个VBA代码，并成功地sorting在团队中的员工姓名，但我不知道如何填写单元格的Wrt Quarters？ Sub JMP() Dim team1 As String Dim team2 As String Dim team3 As String Dim team 4 As String Dim Q1 As String Dim Q2 As String Dim Q3 As String Dim Q4 As String Dim finalrow As Integer Dim i As Integer team1 = Sheets("MasterSheet").Range("I1").Value team2 […]

VBA – Excel：将string拆分到不同的列中

我想让我的excel文件的用户在单元格“B2”中input一个句子，然后有一个Sub来parsing不同列中的句子（从D2到Dn）。 因此，例如，如果在B2中键入“aaa bbb ccc ddd”，则应该有如下结果： D2：aaa D3：bbb D4：ccc D5：ddd 我发现如何使用拆分函数分割与VBA的句子，但我很难填充列D，因为我不知道如何定义最后一行（Dn）。 这是我目前使用的： Sub splitAddress() Dim strAddress As String strAddress = Range("B2").Value Range("D2:D9").Value = WorksheetFunction.Transpose(Split(strAddress, " ")) End Sub 我想修改“D2：D9”，因为D9并不总是最后一列。 如何写，它应该填充从D2到Dn根据我的B2单元格中的单词数量？ 提前致谢 ！

拆分具有多行文本和单行文本的行

我想弄清楚如何拆分行中的列B，C，D包含多行和其他人不行的数据行。 我已经想出了如何分割多行单元格，如果我只复制这些列到一个新的工作表，手动插入行，然后运行下面的macros（这只是列A），但我迷失在编码rest。 这里是数据的样子： 所以对于第2行，我需要将它拆分成6行（单元格B2中的每行一个），并使用A2：A8中的单元格A2中的文本。 我也需要列C和D分割与B相同，然后列E：CP与列A相同。 这里是我分裂B，C，D列的单元格的代码： Dim iPtr As Integer Dim iBreak As Integer Dim myVar As Integer Dim strTemp As String Dim iRow As Integer iRow = 0 For iPtr = 1 To Cells(Rows.Count, col).End(xlUp).Row strTemp = Cells(iPtr1, 1) iBreak = InStr(strTemp, vbLf) Range("C1").Value = iBreak Do Until iBreak = 0 If Len(Trim(Left(strTemp, iBreak […]

如何将包含多个值（逗号分隔）的单元格拆分成单独的行？

我正在处理一个数据样本，我想根据逗号分隔符将其分成几行。 Excel中的数据表在拆分之前看起来像这样： 我想开发VBA代码来拆分C列（“公司联系点”）中的值，并为每个“公司联系点”创build单独的行。 到目前为止，我已经设法将C列中的值拆分成不同的行。 然而，我还没有设法在列D（关系长度）和E（关系强度）中分割值，以便用逗号分隔的每个值对应于列C中其各自的接触。 你会在下面find我借来分割我的单元的代码样本。 这个代码的限制是它没有拆分我的表中的其他列，只是一个。 我怎样才能让这段代码工作分裂在其他列的值？ Sub Splt() Dim LR As Long, i As Long Dim X As Variant Application.ScreenUpdating = False LR = Range("A" & Rows.Count).End(xlUp).Row Columns("A").Insert For i = LR To 1 Step -1 With Range("B" & i) If InStr(.Value, ",") = 0 Then .Offset(, -1).Value = .Value Else X = […]

Excel CSV。 文件有超过1,048,576行的数据

我已经给了一个CSV文件比MAX Excel可以处理，我真的需要能够看到所有的数据。 我理解并尝试了“分裂”的方法，但它并不奏效。 一些背景：CSV文件是一个Excel CSV文件，并且提供文件的人已经说有大约2m行数据。 当我将它导入到Excel中时，我得到的数据最多为1,048,576行，然后将它重新导入到数据行1,048,576行的新选项卡中，但它只给了我一行，而且我知道应该有一个事实更多（不仅因为“这个人”说有超过200万的事实，而是因为最近几行的信息） 我认为这也许是因为我已经提供了CSV文件作为一个Excel CSV文件，所以所有的信息超过1,048,576丢失（？）。 我需要问一个SQL数据库格式的文件吗？