Tag: 提取

Excel VBA – 在string中提取数字值: 我有多个数据表格，其中一列中有关于各种合同价值的信息。对于每份合同，该栏的每个单元格中包含的信息如下所示： “合同的价值是$ XX，XXX.XX”。有时，在美元价值之后会有额外的文字，如下所示： “合同的价值是$ XX，XXX.XX。可以select修改合同期限” 我需要编写一个允许我在该string中提取美元值的子程序，并且只保留该信息（并且前后没有任何文本）。我在这里面临的困难是，一切都是可以改变的。美元价值是不一样的，它之前或之后的文本也会改变。到目前为止，我已经能够成功地保存$符号后面的所有内容，使用SPLIT函数和$作为分隔符。然而，我仍然有问题删除任何可能跟随美元价值的文字。任何想法如何我可以继续？感谢您的帮助！

VBA：提取列直到空，重复在下一张表: 亲爱的堆栈溢出群。在“Prodcuts.xlmx”文件中，我在工作表“Contract1”的A列中有数千个数值。相同的文件包含名称为“Contract2”等几个其他类似的工作表。每个工作表中的行数会发生变化，并且随着时间的推移，可能会在同一个工作表中更改，但它们后面总是跟着空行。工作表的数量是静态的我需要从这些工作表收集信息到第二个文件到一个单一的工作表，让我们称之为“产品列表”的格式，其中列A包含重复的工作表名称，列B的数值。我更喜欢一个提取循环，只是复制这个信息，以避免多个检查的可能的变化。我不能使用select列复制源，因为在空单元格之后，来了不需要的附加数据集。总的想法是获取WS1 Column A的内容，直到空行，复制到“Productlist”列B中获取WS1 WS名称，复制到“Producist”列A，重复，直到列B没有值（或列B + 1行没有值，以避免额外的一行WS名称）添加2个空行重复WS2，直到WSn不存在（或匹配计数）。

在C＃中创build一个Excel文件的path: 我在C＃中编程，根据search参数从WindowsForm中的Excel文件中提取数据。我被困在如何创build适当的Excel文件从中提取数据的path。有什么想法吗？提前致谢

使用通配符从包含特定值/字符的单元格string中提取文本: 在一个单元格中，我有一个包含联系人姓名和公司名称（例如单元格A2： John X. Doe, XYZ Inc. ）的文本string。我成功创build了一个使用连接公司名称和公司名称后缀（即_Inc. ， _Corporation ， _LLC等）的“_”（下划线字符）的公式。这种方法将公司名称和公司后缀连接在一起，将公司视为一个整体或完整的词语。示例1：单元格A2： John X. Doe, XYZ Inc. 示例2：单元格B2： John X. Doe, XYZ_Inc. 试图达到以下目的：结果1：细胞C2： John X. Doe 结果2：单元格D2： XYZ_Inc. 我希望能够从位于B2的文本string中提取（ XYZ_Inc. ），使用通配符expression式（即"*"_"*" ）来提取/删除位于联系人名称右侧的公司名称在左边。由于许多人知道公司名称可能会有所不同并且不一致，因此如果可能的话，使用ID字符_和通配符（星号* ）可能是合适的，以将所连接的公司名称识别并视为一个词并删除。

macros将数据从closures的工作簿拉到另一个工作簿: 我正在写一个macros来执行以下操作：每当我打开一个工作簿时，从计算机上closures的工作簿中提取数据，并将这些数据复制到一个名为“可用性”的单元格A1开始。目前，发生的所有情况都是“可用”被放入到可用性表单元格A1中。请帮忙。 Sub OpenWorkbookToPullData() Dim sht As Worksheet Dim lastRow As Long lastRow = ActiveSheet.UsedRange.Rows.Count Set sht = ThisWorkbook.Worksheets(Sheet1.Name) Dim path As String path = "C:\users\" & Environ$("username") & _ "\desktop\RC Switch Project\Daily Automation _ Availability Report.xlsx" Dim currentWb As Workbook Set currentWb = ThisWorkbook Dim openWb As Workbook Set openWb = Workbooks.Open(path) […]

从相邻列中提取年份: 我有4列在使用我（File_Date），J（File_Year），K（Resol_Date），L（Resol_Year）到目前为止，我有下面的代码，不工作.. Thisworkbook.Sheets(3).FormulaR1C1 = "=YEAR(RC[-1])" Range("J2").Select ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"""",YEAR(RC[-1]))" Range("J2").Select date已经提供了，所以我所要做的就是从第I列到第I列，从第K列到第L列，从第2行开始抽取数年到由不同程序预先确定的lastrow Dim lastRow As Long Dim rng As Range Set rng = ThisWorkbook.Sheets(2).Cells lastRow = rng.Find(What:="*", After:=rng.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row 任何帮助将不胜感激

使用R从excel中提取数据: 我必须从超过100个excel文件中提取特定的数据段。问题是跨这些文件的总行不是恒定的。有没有办法阻止R读取基于Excel中的一个stringvariables的数据？

将列A中的所有@mentions和#hashtags复制到Excel中的列B和C.: 我有一个非常大的tweets数据库。大多数推文都有多个#hashtags和@mentions。我希望所有的#hashtags用一列中的空格和另一列中的所有@mentions分隔。我已经知道如何提取@mention和@mention的第一次出现。但是我不知道把它们全部弄清楚吗？一些推特有多达8＃的标签。手动浏览推文并复制/粘贴#hashtags和@参数似乎是超过5000条推文的不可或缺的任务。这是我想要的一个例子。我有列A，我想要一个macros将填充列B和C.（我在Windows＆Excel 2010） Column A ———– Dear #DavidStern, @spurs put a quality team on the floor and should have beat the @heat. Leave #Pop alone. #Spurs a classy organization. Live broadcast from @Nacho_xtreme: "Papelucho Radio"http://mixlr.com nachoxtreme-radio … #mixlr #pop #dance "Since You Left" by @EmilNow now playing on […]

根据特定列中的目标词列表提取行: 我有一个从完整句子中得到的基本频率数据列表，这样我就可以得到句子中所有单词不同时间的值（每个单词50个时间点）。数据看起来像这样（每个单词50分，每个单词5-8个单词，每套20个短语，3套…数据快速加起来）： Speaker Accent rowLabel ActualTime F0 1 102-1 N {SL} 0.00000000 105.954 2 102-1 N {SL} 0.03757985 105.954 3 102-1 N {SL} 0.07515970 105.954 4 102-1 N {SL} 0.11273954 105.954 … 130 102-1 N NOVEL 2.201260 115.82318 131 102-1 N NOVEL 2.208244 112.42151 132 102-1 N NOVEL 2.215228 108.82458 133 102-1 N NOVEL 2.222212 […]

VBA提取所有相关数据并进行sorting和validation: 好的，这里的情况，我有4个标准：区最大价格最小尺寸客房我有一个工作表（OnSale）所需的所有值的数据列表，我只需要运行之间的特定algorithm来理清这些标准：区域（整数）是否是客户select的区域如果价格（整数）小于最大价格如果大小大于最小大小（整数）如果房子有客户select的房间数量（整数）。如果工作表（OnSale）列表中的数据符合上述要求，则会首先创build一个表格，然后按照以下所示添加符合上述所有条件的家庭的详细信息。（项目|单位数量|价格|价格（psf）|价格（每平方米）|面积（平方米）|床位|使用权限（发现在售货上）最后，如果表格没有结果，我需要它自动删除新的工作表，并通知用户目前没有这种销售。 < – 可能MsgBox。我真的希望有人可以帮助我这个CUS我真的是新的VBA，需要做到这些事情发生:(真的很感激，如果有人可以帮助。提前致谢！这是我到目前为止，但代码不会导致我任何结果 Option Explicit Sub finddata() Dim district As String Dim maxPrice As Long Dim minSize As Integer Dim room As Integer Dim finalRow As Integer Dim i As Integer Sheets("Alakazam").Range("A2:M1048576").ClearContents district = Sheets("RealEstateAmigo!").Range("T4").Value maxPrice = Sheets("RealEstateAmigo!").Range("T5").Value […]