Tag: 行

AutoFilter中的一个具有换行符的值（Excel / VBA）: 我写了一个VBA代码，我必须过滤一组数据。但是，我的一些数据有一个换行符，我想过滤这些值。我尝试使用vbCrLf ，但没有奏效。这是我的代码： ActiveSheet.Range("$A$1:$M$10").AutoFilter Field:=2, Criteria1:="=1234 -" & vbCrLf & "product" 在这里，我将在第二列中筛选价值1234-产品（在“ – ”和“产品”之间有一个换行符）。但是上面的代码不会过滤任何东西。我在这里做错了什么？

Excel vbamacros根据单元格整数值多次复制行: 我正在寻找一个VBA Excelmacros将完整的行复制到另一个工作表。这将需要基于单元整数值创build该行的其他重复副本。当您想要创build文档或标签的多个副本的情况下使用邮件合并时，这很有帮助。我发现几个答案是接近的，但没有复制整行 input col1 | col2 | col3 | COL4 狗| 像| 猫| 1 大鼠| 像| 坚果| 3 猫| 嚼| 大鼠| 2 输出col1 | col2 | col3 | COL4 狗| 像| 猫大鼠| 像| 坚果大鼠| 像| 坚果大鼠| 像| 坚果猫| 嚼| 大鼠猫| 嚼| 大鼠输出col4中的值可能存在，对我的情况无关紧要

保持行业廉洁贴上非空白行: 这是一个困难的Visual Basic问题，所以我不确定这个论坛上的任何人是否能够提供帮助。但值得一试。我在Visual Basic中编写了一个程序，用作Excel中的一个macros。在macros中，我在sheet1（FINAL）中获取数据并将值复制粘贴到sheet2（Data）中。我在sheet1中的数据范围有很多空白单元格，所以我想创build一个程序，只能粘贴行的值（相对于只有空白单元格的行）。我的程序现在在粘贴到sheet2之前修改了我在数据表1中的数据范围，我不希望这样…… ..我的格式也因此而被全部搞砸了。相反，我希望我的sheet1中的数据保持完全相同，在粘贴操作中删除的空行将进入sheet2。我在sheet1中的数据从列AL开始并进行到列CD。保持行的完整性是非常重要的。我不希望在粘贴过程中删除空白单元格，而是要在粘贴过程中删除范围内的空白行。所以如果在AL和CD列之间有一行甚至只有一个数据点，那么整个行就必须保存在粘贴中。但是对于列AL和CD之间的任何行，它们都是完全空白的，它们需要在进入sheet2的粘贴操作中被删除。我现有的程序如下。任何帮助将不胜感激。 Dim ws As Worksheet Set ws1 = Worksheets("FINAL") Set ws2 = Worksheets("Data") With ws1.UsedRange lastcolumn = .Cells(1, 1).Column + .Columns.Count – 1 lastrow = .Cells(1, 1).Row + .Rows.Count – 1 End With ws1.Range(Cells(1, 38), Cells(lastrow, lastcolumn)).AutoFilter field:=1, Criteria1:="<>" […]

Excel VBAmacros代码插入无限制的行而不停止: 下面的代码在指定列中的单元格更改并且不为空时自动运行。 Sub mergeCells() Dim num As Integer Dim countmerged As Integer If IsEmpty(ActiveCell.Value) Then Exit Sub Else countmerged = -1 If ActiveCell.Offset(-1, 0).mergeCells Then countmerged = ActiveCell.Offset(-1, 0).MergeArea.Cells.Count * -1 End If num = ActiveCell.Offset(countmerged, -1).Value If ActiveCell.Offset(countmerged, 0).Value = ActiveCell.Value Then ActiveCell.ClearContents ActiveCell.Offset(0, 1).ClearContents ActiveCell.Offset(0, 37).ClearContents ActiveCell.Offset(0, 36).ClearContents ActiveCell.Offset(0, -1).ClearContents ActiveCell.Offset(1, 0).EntireRow.Insert ActiveCell.Offset(2, 0).EntireRow.Copy […]

Excel：如果COLUMN等于VALUE，则删除多行: 是否有人知道或可以编写的macros将检查文档的所有行，并删除至less有以下条件之一的所有行：列F = 0 列N = 0 列AT = FALSE 列AU = FALSE 专栏AV = 出售 Z列 = 分段谢谢。

Excel数据透视表：如何将列中的多个值转换为列标签: 这里是我在Excel中的数据透视表：我有他们的电子邮件地址的网站列表。有时你每个网站有一封电子邮件，有时你每个网站有3封电子邮件。我想将邮件1中的一个网站的多个电子邮件转换成多个字段，例如电子邮件1，电子邮件2，电子邮件3，用于各个相应的网站。这是我的数据透视表的一个例子： ** URL | 电邮** site.com | 电子邮件1 |Email 2 site2.com | 电子邮件1 site3.com | 电子邮件1 |Email 2 |Email 3 site4.com | 电子邮件1 我想把它变成： url| 电子邮件| 电子邮件2 | 电子邮件3 site.com | 电子邮件1 | 电子邮件2 site2.com | 电子邮件1 site3.com | 电子邮件1 | 电子邮件2 | 电子邮件3 site4.com | 电子邮件1 对不起格式。所以这个想法很简单，我只需要把我网站上的多个电子邮件转换成列。但是当我把电子邮件字段放到列标签中时，它将每个电子邮件而不是3个电子邮件列标签（因为我没有超过3个电子邮件每个网站），我有7列标签。任何想法，谁来实现呢？

Excel – 根据单元格值删除当前行和行: 每个星期我都会收到一个电子表格，最多可以包含4000行。如果任何date在列C中，我需要删除该行和上面的行。有人可以帮助我一些VBA代码，我可以运行每个新的文件，我得到每周。每周手工通过4000多行数据是很痛苦的。在屏幕截图中，我将删除行157,158,159和160。非常感谢帮助。

当选中整行时，为什么Selection.EntireColumn.Address返回行引用？: 如果我手动select一个任意的行，比如4:4 ，然后在“立即”窗格中使用： ?Selection.EntireColumn.Address $1:$1048576 这不是我期待的专栏文章。但是，如果手动select一个任意的列，说D:D ，然后在即时窗格中使用： ?Selection.EntireRow.Address $1:$1048576 我得到了预期的行参考。行更占优势吗？是否有行的战争？

search多个工作表，然后将where列A> 0的所有行复制到指定的工作表中: 问候，我已经看了很多代码来帮助我做这件事，虽然我发现了几个暗示，也许这是我对vba的经验不足，但我还没有能够修改任何东西为我工作。我有一个数量，部分，描述的工作表的工作簿。数量在列a中。每个工作簿的前三行是一个标题。我正在寻找在我的“摘要”工作表中search所有其他工作表的代码，并汇总了汇总表中的所有数量，部分和描述信息（列a，b和c），所以基本上我最终数量大于0的每个项目的摘要页面上的列表，从行4开始。任何提示或build议将不胜感激。非常感谢，威廉

Excel将单个数组拆分为多个单元格: 我使用的应用程序在一个单元格的数组中导出数据串，如下所示： "data1"= value1; "data2"= value2; "data3"= value3; "data4"= value4; "data5"= value5; 我想要一个方程式或macros，或者可以像这样分割的东西： —————————————————————- | | data0 | data1 | data2 | data3 | data4 | data5 | —————————————————————- | 1 | ARRAY | value1 | value2 | value3 | value4 | value5 | —————————————————————- | 2 | ARRAY | value1 | value2 | value3 | […]