Tag: 分割

将B列中的拆分数据粘贴到D＆E列中: 在B栏中有5个字符的项目代码+项目描述。我设法制作一个macros，将B列中的5个字符的项目代码复制/粘贴到D列，将项目描述粘贴到E列中。例： Column B Column C Column D Column E XX787 DO BOLOGNESE 2X2.28KG FR <other> XX787 DO BOLOGNESE 2X2.28KG FR 我面临以下问题：例如，约1％的产品代码不是5个字符，而是8个字符存在于8个字符中的该百分比存在于数字中，并以0开头正如你所看到的，最后2个是具有不同格式的项目代码的示例，并且即使只有less量的项目代码，当然也必须考虑它们。所以用我目前的编码，出现以下问题：我认为macros应该做到以下几点，使其正常工作：对于列D中的项目代码：复制/粘贴B列的第一个空格之前的所有字符对于E列中的项目说明：复制/粘贴第一个空格之后的所有字符我目前正在运行的代码如下： Sub Seperate_Item_Code_And_Description_Code() 'Copy/paste the item codes and descriptions from column B to column D and E seperately Range("B12").Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Range("D12"), DataType:=xlFixedWidth, _ TextQualifier:=xlDoubleQuote, […]

将Excel中的多值单元格分割成行: 我在Excel中遇到了一个问题，我打算通过VBA将多值单元分割成多行。这是我目前的表格然后，我正在努力做到这一点谢谢

如何使用多个查找值来拆分和更新列表: 目前我正在读取Excel表格中的行并更新SharePoint列表。其中一些是查找专栏。现在说例如从excel开始的一行是： Distribution A+;#253;#Distribution FACTS;#256;#Distribution SX.e;#257 现在我的要求是我需要分裂他们像： ID;#Value;#ID;#Value;#ID;#Value 然后在列表中更新。码 if (string.IsNullOrEmpty(Convert.ToString(listTable.Rows[iRow][‌23]))) { } else { newlistitem["Product"] = Convert.ToString(listTable.Rows[iRow][23]); }

VBA Excel每隔n列拆分一个工作表: 我有一个带有两个“标题列”的转置表。这个表格拉长了太长的时间，我希望能够将这个表格分成几个“n”列，同时将两个标题列拷贝到每个新的表格中。我所能find的所有例子只是将每行“n”分开，而我想将每个“n”列分开。我发现很难用纯文本解释这个问题，所以我附上了屏幕截图：在这个例子中，第一个工作表包含原始数据，后面的工作表包含macros的内部结果，工作表每两列分割一次：

Excelmacros – 如何将包装的文本分解为合并列的行？: 我必须从PDF导入数据到SAS，一步就是将PDF数据转换成excel电子表格，然后再转换为文本以实现更简单的SAS导入。通常PDF数据转换成excel，很less有错误。正如我正在尝试导入较旧的数据，它变得相当混乱，一些行被包装在一个单元格中。我试图找出是否有一个macros可能可以帮助我解决这个错误表中没有太多的手动操作。我从来没有在VBA编程，所以我对excelmacros很新。这是凌乱的数据的例子：这里是正常数据的例子：（*注意两个图像中的数据值是不同的，例如格式化）我曾尝试过一个macros。为此，我将杂乱的数据复制到另一个工作表中，然后运行在单独的工作表上输出更正的数据的macros，然后将更正的数据复制到原始电子表格中的杂乱数据上。试图编写macros后，我无法弄清楚如何告诉excel将列C，D，E，F中的数据合并到一个单元格中，并打破该封装的文本，以此类推其他合并列（如乱数据图所示）。这是我看了一些教程后得到的当前代码： Sub Split_Text_to_Rows() Dim splitVals1 As Variant Dim splitVals2 As Variant Dim totalVals As Long Set sh1 = ThisWorkbook.Sheets(2) Set sh2 = ThisWorkbook.Sheets(3) sh2.Cells.Clear lrow1 = sh1.Range("A65356").End(xlUp).Row For j = 1 To lrow1 splitVals1 = Split(sh1.Cells(j, 1), Chr(10)) splitVals2 = Split(sh1.Cells(j, 2), Chr(10)) For […]

在Excel列表中出现不同的行时分开: 我有一个Excel电子表格的问题。我从Access导入数据到电子表格，我用它作为我的员工的select列表。这是按运输号码sorting，我希望电子表格分开不同的运输号码出现在另一种颜色的行。喜欢这个： Transportnumber： 112233 112233 112233 223355 [GREEN] 223355 [GREEN] 555566 555566 有这种可能吗？该列表包含大约10个以上的数据列，因此当另一个不同的交通工具出现时，让员工更容易阅读是很重要的。

任何Excel的单元格公式都可以将它自己的值除以1000？: 如果我以编程方式或手动input一个值，比如10000，进入一个excel单元格，我需要它自动将它除以1000，这可以发生吗？ No.1，我不是问显示格式，我需要认真的改变input的值。 2号公式不适用于整个工作表。

powershell或excel分割string中的最后两个逗号: 我有一个文件共享列表（成百上千行），并在Excel中完美alignment，我可以使用文本到列拆分。但是我遇到了一个问题，因为有很多文件path在名称中都有一个逗号，而且正在拆分，而不是实际需要的分隔符。这是一个string的例子： \\\Share\MMMC\MMMC\Employees\Jones, Pat\Payment Vouchers\The Creative Group\Amy DOE\2014\Inv. # 403412 – $671.16 – 5-16-14.xlsm,DOMAIN\YA-MGD , RWXD \\\Share\MMMC\MMMC\Employees\Jones, Pat\Payment Vouchers\The Creative Group\Amy DOE\2014\Inv. # 403412 – $671.16 – 5-16-14.xlsm,DOMAIN\SGRP-Triple, RWXD 在上面的两行中，分别是在Jones和“DOMAIN”分裂，然后是最后一个逗号，离开完整的分享path。逗号的数量可以变化到4或5.我只希望它在最后两个逗号分裂。我怎样才能以编程方式做到这一点？一个Excel公式或PowerShell脚本将是理想的。任何帮助将不胜感激。

将行中的单元格中的文本拆分为多行，即可拆分多行: 我的问题是对此的扩展，拆分单元格中的文本，其中，我需要拆分单元格中的文本与行分隔成单独的行，不只是一列，但多列。我的数据的屏幕截图：

使用下一个可用行将电子邮件地址string拆分成不同的列: 我需要一些帮助，从电子表格中分离出一串电子邮件地址。我有一个工作表，所以当你按下发送通知button时，代码将在一列中查找一个数字，如果该数字等于1或2它将从第4列中取出电子邮件地址并将其插入到“ “电子邮件的字段。我想使用拆分functionlogging所有这些电子邮件地址，但我只收到第一个电子邮件地址，没有进一步的。这是我的代码： Private Sub CommandButton1_Click() Dim OutApp As Object Dim OutMail As Object Dim strto As String, strcc As String, strbcc As String Dim strsub As String, strbody As String Dim emailRng As Range, cl As Range Dim sTo As String Dim sCC As String Dim x As Variant Dim Y As […]