Tag: 复制

在Excel中，有一个列的条件副本，从一个表到另一个: 我有一个两列的Excel文件 project1 project2 a1 a2 b1 b2 c1 c2 d2 我在旁边创build了一个可能的项目清单 Data>Validation> list of "project1 project2" 用户将从下拉菜单中select一个项目，但我怎么能做的列（a * b * c *）自动出现在选定的项目下面？看下面的例子，我想要什么我可以使用IF（）为每个单元格，但我不想依赖的行数。

如何从文本文件中提取特定的单词到xls电子表格中: 我是VBA新手。在这里发布我的问题之前，我花了近3天的时间浏览互联网。我有300多个文本文件（使用OCR从PDF转换的文本），从文本文件。我需要将所有包含“字母”和“数字”的单词（例如KT315A，KT-315-a等）与源参考（txt文件名）一起获得。我需要的是 1.添加“智能filter”，将只复制包含的单词 “字母”和“数字” 将复制的数据粘贴到A列将参考文件名称添加到B列我发现下面的代码可以将文本文件中的所有数据复制到Excel电子表格中。文本文件看起来像 “从252A-552A到ddddd，,,, @，@，rrrr，22，…. kt3443，fff ,,,等” xls的最终结果应该是 A | 乙 252A-552A | 文件1 kt3443 | 文件1 Option Explicit Const sPath = "C:\outp\" 'remember end backslash Const delim = "," 'comma delimited text file – EDIT 'Const delim = vbTab 'for TAB delimited text files Sub ImportMultipleTextFiles() […]

在For循环中复制行并粘贴到新工作表: 我有问题根据条件复制/粘贴行。 Dim lastrow1 As Long Dim lastcolumn1 As Long Dim Distance As Long Distance = 14 Set sh = ThisWorkbook.Sheets("Sample Address Database") Set sh2 = ThisWorkbook.Sheets("Workspace") lastrow1 = sh.Cells(Rows.Count, "A").End(xlUp).row lastcolumn1 = sh.Cells(1, Columns.Count).End(xlToLeft).Column Dim L As Long For L = 2 To lastrow1 If _ sh.Cells(L, Distance).Value <= CDbl(cboRadius.Value) Then sh.Range("A" & L & […]

基于search标准提取行: 我的问题是，我想从一个非常大的数据表中提取一些信息。正在提取的信息是基于一些表单上input的search条件。 search表单计算出这个标准存在多less次，但是我需要将单个行提取到另一个表单中。我很难理解如何实际构造提取代码。我需要指出正确的方向。如果代码可以计算有多less事件，那么当然我可以得到这些事件的行号，并提取信息，我只是没有得到任何解决办法。这里是我的search代码（这个代码用于根据所要求的标准得到出现次数） Public Sub Run_Count_Click() '// Set Ranges Dim Cr_1, CR1_range, _ Cr_2, CR2_range, _ Cr_3, CR3_range, _ Cr_4, CR4_range, _ Cr_5, CR5_range _ As Range '// Set Integers Dim CR1, V1, CR1_Result, _ CR2, V2, CR2_Result, _ CR3, V3, CR3_Result, _ CR4, V4, CR4_Result, _ CR5, V5, CR5_Result, _ […]

VBAselect性复制？: 我正在寻找复制某些列单元格一次一行（即A2，C2，G2，然后到A3，C3，G2）粘贴到一个新的表。我看过使用： Sheets("Sheet1").Range("A1:A10").Copy 但我需要从某些列复制数据。一些伪代码：遍历每一行如果A列中的date限制为条件语句，则复制预定义的列值并复制到新工作表。检查下一行。我目前有一个for循环从1到50行迭代。 'Copy Titles Sheet2.Range("A1, E1, J1, K1, W1:X1, Y1, AA1").Copy Sheets.Add ActiveSheet.Range("A1").PasteSpecial 'Copy Data 'If today's date is later than a date in the Column A, copy the cell over. ? 'Fix Column Width Range("A1:H1").ColumnWidth = 20 'Align Columns Columns("A:H").HorizontalAlignment = xlCenter End Sub 我在思考每一个select，我会做同样的声明，但复制到新的工作表呢？先谢谢你！

拆分单元格并删除重复项？: 我正在为学校做一个项目的剪辑和path集。我有一个类似于以下的长数据列表 1 9 9 9 9 9 16 1 9 9 9 9 9 17 1 9 9 9 9 9 15 1 9 9 9 9 9 18 1 9 9 9 9 9 19 1 9 9 9 9 9 20 1 9 9 9 9 9 21 1 9 9 9 […]

我想用poi创buildword或excel文件的副本: 我想用poi创buildword或excel文件的副本。我知道在阅读word或excel文件时也使用poi。阅读不仅意味着价值观，还意味着每个单元格的字体大小，表格颜色和背景颜色等属性。读取xlsx或docx文档的值和属性时，我想按照原样复制单词或Excel文档。有没有可能在任何网站的开放源码打开相关的源代码？

VB Excel：如何移动工作表与表格/macros: 我在将工作表转移到其他工作簿时遇到问题。我在第一个工作簿以及1或2个表单中写了几个macros，我需要能够将包含这些macros和表单的这个工作表移动到一个新的工作簿中。如果我只是做一个简单的工作表副本，工作表的新版本将引用旧的工作表的macros，我写（第一个工作表）中的表单不会引发当我尝试加载第二个工作表中。有什么build议么？我试过谷歌search，似乎没有任何类似的问题…也许我错过了什么？

复制直到最后一块数据: 是否有可能select范围复制到最后一个项目？ Sheets("Design").Select Range("A1:C200").Copy 'My data only runs until E48 and Im left with 152 blancs. 所以，现在它从A1复制到E200，但是如何编辑上面的代码，直到最后一个数据，在我的情况下是E48？（这是可变的）谢谢！ @Jean 在我的Excel表中，我有从A1-A18运行的数据，B是空的，C1-C2。现在我想复制所有包含值的单元格。 With Range("A1") Range(.Cells(1, 1), .End(xlDown).Cells(20, 3)).Copy End With 这将复制从A1到C20的所有内容，但我只希望A1-A18和C1-C2看起来好像这些包含数据。但它需要以一种方式形成，一旦我有数据在B或我的范围扩展，这些也得到了复制。这可能更清楚一点吗？关于复制/粘贴情况; 我目前使用这个粘贴 appWD.Selection.PasteSpecial ' So it copies the formats too? 'In your case, do you mean I should do it like this? Range(.Cells(1, […]

将所有工作表复制到一张表中: 我正在尝试编写一个将所有工作表复制到一个工作表的Excelmacros。所有的工作表都布置成相同的，每行的每个单元格中有4列数据。每张纸都有一个标题。我试图将每张纸的预过滤数据复制到结果表中，每张纸上的数据将堆叠在一起。到目前为止，这是我所拥有的，而且几乎可以工作。 Dim sh As Worksheet Dim iRows As Long iRows = 0 For Each sh In ActiveWorkbook.Worksheets sh.Select Range("A1").Select Selection.Offset(1, 0).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Worksheets("Results").Select Range("A1").Select Selection.Offset(iRows, 0).Select Selection.PasteSpecial Paste:=xlPasteValues iRows = Worksheets("Results").UsedRange.Rows.Count Next sh 我的抵消是不正确的，当我复制下一张表复制的数据复制了上一行。如果任何人都可以帮到你，那么如果你还可以解释我在这里做错了什么，那么对于我刚刚接触excel和VBA的人来说，这将是非常棒的。我猜，我不明白如何正确的粘贴工作？