Tag: 行

使用排除项目运行macros多个工作表

我试图在工作簿中的多个数据表中运行这个macros，但我不能让代码跨工作簿正常运行。 如果我在一张纸上运行macros，它工作正常，但我想现在运行所有的工作表，并排除“数据”和“更新”工作表，并没有任何运气的代码是下面，如果有任何build议如何通过所有工作表正常运行？ 谢谢 Sub UpdatePrices() Dim ws As Worksheet, Ldate As String, DateRng As Range Set DateRng = Range("A3") 'date range is last date Ldate = DateRng.Value 'defines ldate as most recent date For Each ws In ActiveWorkbook.Worksheets 'Inserts a new row with containing today's Date and exclude sheets If Ldate <> Date And ws.Name […]

在最后一行下方添加行

我正在devise一个数据提交电子表格与12行数据（目前22至33行）。 行34至42填充有文本。 如果要input12个以上的数据集，使用与button33相同的格式，使用与button33相同的格式，我想在第33行下面添加一个新行（第34行）。 这很容易，但如果我需要在第34行下面的另一个新行（现在是第35行），我需要一个代码是灵活的做到这一点; 我总是在第33行下面添加新行，而不是在数据input集的最后一行之下。 我该怎么做呢？ 我对VBA相当陌生 谢谢， 安迪

VBA脚本将Excel中的特定行从给定工作簿复制到新工作簿（如果在给定列中find特定值）

我一直在寻找解决我的问题在过去48小时，我什么都找不到。 请记住，我有非常基本的编程知识，我可能忽略了一些东西，以适应我的需要，而不理解它背后的代码。 我有一个Excel工作簿，其中包含所有的数据。 这是一个进出港口的货物清单。 现在，当一些东西被加载，一个“加载date”单元格自动填充date。 我需要每一行有一个空白的“加载date”单元格复制到一个新的工作簿，将根据它的生成date（即：031814-PM）根据一天的时间命名，PM可能是上午。 现在我可能不需要将所有列复制到新的工作簿。 我需要一种方法来在复制过程中排除这些列。 我想用一个button来调用VBA脚本，这个button将位于数据工作表的顶部，这样当我们点击它时，就会生成新的工作簿。

如何在Excel中按行查找重复项

我一直在寻找一种方法来查看哪些行中有重复的单词。 如果一个单词在列A中匹配，并且CI想要向列B添加“X”，则整个单元不应该完全相同，例如，John Miller和Miller，J这只需要匹配同一行，而不是整列。 我有5万行加上行，所以我正在寻找一个更好的方式，任何帮助，真的不胜感激 以下是它的样子： A Jf Wepener . Lourens Johannes Stephanus Me Horn x Horn Maria Elizabeth Jg Waldeck x Waldeck Johan George Pj Du Preez x Preez Paulus Jacobus Du

通过指定的数组循环？

我试图匹配从一个表到另一个特定行的行高度，这个工程，如果我只是删除所有行与rowlist，并做对于我= 1至200，但这需要太长时间。 我只想匹配几个行高，而不是所有介于1和200之间。我的代码如下： Dim y As Double Dim i As Long Dim rowlist() As Variant rowlist = Array(3, 5, 23, 30) For i = LBound(rowlist) To UBound(rowlist) y = Worksheets("Development").Rows(i).RowHeight Worksheets("Final").Rows(i).RowHeight = y Next i

将2行添加到现有的macros

下面是我现在使用的macros..编辑细节在底部。 Sub AddBlankRows() ' Dim iRow As Integer Range("a1").Select ' iRow = 1 ' Do ' If Cells(iRow + 1, 1) <> Cells(iRow, 1) Then Cells(iRow + 1, 1).EntireRow.Insert shift:=xlDown iRow = iRow + 2 Else iRow = iRow + 1 End If ' Loop While Not Cells(iRow, 2).Text = "" ' End Sub 上面的macros，我发现（谷歌search）Stackoverflows问题之一，有人问了，它为我的目的工作。 […]

使用JXL（JExcel）更新Excel表导致0 KB文件

使用JExcel“jxl”库写入现有的excel文件时遇到问题。 我有一个jTable包含工作表的数据，当用户按下删除button时，选定的行应该从工作表＆从表模型删除..在下面的代码，它是从jTable模型删除，但不从表单！ 实际上按下删除button后，整个工作簿变成0 KB！ 你能告诉我什么是问题吗？ “注：我试图改变复制工作簿的名称到另一个名称，并删除了这一行（sheet.removeRow（deletedrow + 1）;）它复制原来的工作簿就好了..我认为发生在删除行” private void removebuttonActionPerformed(java.awt.event.ActionEvent evt) { int deletedrow; deletedrow = logtable.getSelectedRow(); int dialogButton = JOptionPane.YES_NO_OPTION; int dialogResult = JOptionPane.showConfirmDialog(this, "Are you sure you want to delete this record from "+ sheetname + " sheet?", "Confirmation Message", dialogButton); if (dialogResult == 0) { try { Workbook workbook = Workbook.getWorkbook(new […]

上次激活的单元格行

我对VBA代码中的“ActiveCell.Row”命令有困难，我知道它一定是一个简单的修复，但我已经做了一些研究，没有find我的问题的答案。 下面的代码获取下一个活动单元格的行号，而不是我编辑的单元格。 例如：如果我编辑单元格“B2”并按下回车键，它将返回B3行，因为在运行代码时，它将成为当前活动单元格。 如果我按Tab，它返回正确的数字是“2”，因为活动单元格将是“C2”。 如果我按向上箭头返回行“1”，因为活动单元格将是“B1”。 我感谢您的帮助！ 谢谢！ （PS我已经尝试了这里给出的解决scheme和我发现的其他一些解决scheme，但没有成功） Private Sub Worksheet_Change(ByVal Alvo As Range) Dim limite_maximo As Integer limite_maximo = 1000 If Alvo.Cells.Count > 1 Or IsEmpty(Alvo) Then Exit Sub If Alvo.Column = 2 And Alvo.Row >= 1 And Alvo.Row <= limite_maximo Then Application.EnableEvents = False a = ActiveCell.Row – 5 b = 10 Alvo.Offset(0, […]

将Excel列转换为行（文本数据，而不是数字）

我在Excel中有一个电子表格，在第一列中包含一个“成员ID”，在接下来的六列中有六个与此成员ID相关的variables。 我需要以某种方式将这些列转换为行，但仍然在每行开头的成员ID列。 这是现在的数据（有5000行，因此希望find一个自动化的解决scheme）： 会员1 | AAA | BBB | CCC | DDD | EEE | FFF 会员2 | BBB | ZZZ | FFF | AAA | RRR | SSS 会员3 | YYY | FFF | OOO | MMM | PPP | AAA 这里是我需要的格式： 会员1 AAA 会员1 BBB 会员1 CCC 会员1 DDD 会员1 EEE 会员1 FFF […]

IF =行标题 – 需要Excel公式

红色矩形区域是我想要的公式实现的。 最上面的蓝色行是客户要求的传单的号码。 下面的每一行都有一个客户姓名和地址（在左侧视图之外）。 有些客户需要多张宣传单，所以需要像图片中的14（x2）那样的东西。 有超过700个客户（行）。 谢谢你的帮助。 请在这里find我的截图的链接： http : //s638.photobucket.com/user/generalsoulfly/media/Screenshot.jpg.html