Tag: split

将文本文档分割成一个Excel表格xls

我目前正试图导出/转换成一个.xls文件的文本文件。 所以，从我发现我能够创build一个XLS，但现在我只需要从文本文件中获取格式正确的XLS。 下面是我想要做的一个例子。 可以说我有以下文本文件： numbers.txt |<DOg>| |Data1 = 300 | |Data2 = 200 | |Data3 = 15 | |Data4 = 14 | |Data5 = 4 | |<DOg>| |Data1 = 800 | |Data2 = 500 | |Data3 = 25 | |Data4 = 10 | |Data5 = 5 | 如果我使用|运行我的代码 作为分隔符我收到这个.xls文件 正如你所看到的格式是closures的。 我试图得到的目标是下面的格式。 我正在使用的当前代码如下所示： mypath = raw_input("Please […]

按行和列分割文本

我正在使用Excelmacros从Yahoo Finance检索CSV文件。 在A栏中，我列出了股票代号作为input。 我曾经运行过一个macros，它会把每个ticker插入到一个URL中，然后把结果输出到B列中。然后我调用一个函数把B列中的文本分割成B列到E列。 当我创build一个连接的URLstring并调用URL一次时，函数变得更快。 主要的问题是我收到的数据格式如下： "81.950,342.05B,"Exxon Mobil Corporation Common ",263.71B 81.38,201.29B,"Alibaba Group Holding Limited A",13.56B 754.77,519.78B,"Alphabet Inc.",71.76B 120.57,649.30B,"Apple Inc.",233.72B" 当前输出 预期/理想输出 当我一次调用一个url时，我可以将必要的数据与“文本到列”function分开。 现在我需要它由列和行分开。 Sub StockDataPull() Dim url As String Dim http As Object Dim LastRow As Long Dim Symbol_rng As Range Dim Output_rng As Range 'Define Last Row in Ticker Range With ActiveSheet LastRow […]

vlookup拆分值VBA

我创build了一个像vlookup一样工作但具有拆分值的macros。 我想从第二张分割值（用分号分隔）中find值，并将描述复制并粘贴到新的表格中。 第一个循环遍历工作表2中的列表，并将该值设置为variables，第二个循环通过拆分值检查何时完全匹配，并将描述复制并粘贴到第二个工作表。 但是 – 这是行不通的，我不知道问题是什么。 我有通知"type mismatch" 。 我尝试使用部分文本string的查找，但它也不起作用。 Sub Metadane() Dim ws As Worksheet Dim aCell As Range, rng As Range Dim Lrow As Long, i As Long Dim myAr Dim ws2 As Worksheet Dim bCell As Range, rng2 As Range Dim variable As String '~~> Change this to the relevant worksheet Set […]