Tag: autofill

在Excel VBAmacros中自动填充单元格: Sub AutoFill() Dim x As Long Dim y As Long Dim lastrow As Long Dim lastcolumn As Long Application.ScreenUpdating = False Application.DisplayAlerts = False lastcolumn = ActiveSheet.UsedRange.Column – 1 + ActiveSheet.UsedRange.Columns.Count lastrow = ActiveSheet.UsedRange.Row – 1 + ActiveSheet.UsedRange.Rows.Count For x = 2 To lastrow If Cells(x, 2).Value = "" Then Cells(x, 2).Value = Cells(x – […]

Delphi和Excel – 使用自动填充: 在delphi10 /西雅图，与Excel 2013 …我试图：添加一列（列AJ），并设置其标题文本（代码工程）将列2的值设置为AutoSum（代码有效）将第2行的计算复制到所有剩余的行。（不起作用）在“复制计算”步骤中，我使用自动填充方法。我收到一个错误“范围类失败的自动填充方法”。但我不知道为什么…（注意variablesaws是全局设置为活动工作表的。） const TOTAL_TOUCHES = 'AJ'; … var ColumnHeader : OleVariant; SecondRow : OleVariant; ColRange : OleVariant; myAddr, myAddr2 : String; LastCell : string; begin // This routine adds the header 'Total Touches' and then puts an AutoSum in that column for all rows // Set […]

Excel VBA自动填充栏: 我想在下面的自动填充代码编辑范围，但我不知道如何。 'find last used cell in the row to the right Range("B59").End(xlToRight).Select 'auto fill the formula for "Total TV" ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset(0, 1)) 目前，代码在一行中find最后一个有效的单元格，然后向右自动填充一个单元格。我想做的事：我会find最后一个有效的单元格，然后select活动单元格和它下面3行的单元格，然后自动填充右侧的一个单元格。在图片中看起来像这样：在第59行find最后一个有效单元格： select下面3行的活动单元格和单元格：自动填充右侧的一个单元格

自动填充function打破了一个logging: 我的logging从单元格B8开始，我需要在A列中从单元格A8开始对它们进行计数。我用这个问题的答案“ 根据相邻列自动填充 ”，但如何处理logging数为0或1时？当有1条logging时，它是错误的。似乎自动填充不能自动填充一个单元格。我有一些testing零和一个条件，但有一个更干净的方法来做到这一点？ LastRow = Cells(Rows.Count, 2).End(xlUp).Row 'Find last row If LastRow >= 8 Then 'If recordcount is 1 or greater Range("A8").FormulaR1C1 = "1" 'First number is "1" If Not LastRow = 8 Then 'If not recordcount exactly 1 'Enumerate the remaining records with Autofill Range("A8").AutoFill Destination:=Range("A8:A" & LastRow), Type:=xlLinearTrend End […]

VBA用上面的单元replace值，直到空白和循环: 我正在寻找基于上面的单元格填充值，直到空白单元格，这应该继续，直到没有更多的内容，例如：请参考下表，将顶部值向下复制，直到空白，因此，'petty msa'将复制到'inter'并停止，'petty ksm'将复制到'general'，'comp'将复制到'motor'。专栏：A 小小的msa 间小ksm 福利水预付一般补偿旅行发动机编辑：这是一个约15,000行的长列表谢谢

Excel VBA自动填充目的地: 这行代码需要一些帮助： .Range("A1:G1").AutoFill Destination:=.Range("A1:U1") 我试图自动制作一个日历。如果将范围更改为除A1:U1之外的任何值，代码将不会编译。我想将范围扩展到A1:AE1 任何原因卡住，而不是在那里编译？谢谢！ Sub CreateCalendar() Dim lMonth As Long Dim strMonth As String Dim rStart As Range Dim strAddress As String Dim rCell As Range Dim lDays As Long Dim dDate As Date 'Add new sheet and format ActiveWindow.DisplayGridlines = True With Cells .ColumnWidth = 6# .Font.Size = 8 End […]

如何find第一个空白单元格后，使用VBA向下拖动（自动填充）公式: 我需要一些帮助拖动一个string（“Decliners”）在Excel中的列。我知道怎么做，如果我知道什么细胞是我的出发点，但我首先必须find我的数据集中的第一个空行。一旦find我的第一个空白行，我需要从列C3中拖动我的string。这个string正被拖到一列。我也不知道这个数据集的范围，因为它是dynamic的。本质上，我只需要重新创build双击单元格右下angular的动作，单词“Decliners”填充到数据集的底部。代码来select工作表中的第一个空白单元格： Dim Pastesheet As Worksheet Dim Decliners As String Decliners = "Decliners" Set Pastesheet = Worksheets("Ent Gainers_Decliners") Pastesheet.Range("C3").End(xlDown).Offset(1, 0).Select 'Where I need the word "Decliners" dragged down from the cell selected

Excel vba自动填充只有空单元格: 我有一个数据高达A300的A列。在这个范围内，其中一些单元格是空的，一些包含值。在VBA中，我设置了单元格A1的公式，然后使用自动填充function将它设置在我的列（最多A300）上，如下所示： ws.Range("A1").Select Selection.AutoFill Destination:=ws.Range(ws.Cells(1, 1), ws.Cells(300, 1)) 我的问题是，包含在一些单元格上的数据也被删除！我试图自动填充，但只能通过空容器。我试图在我的工作表上添加一个filter，如下所示： ws.Range("$A$1:$A$300").AutoFilter Field:=1, Criteria1:="=" 然后，我重用了自动填充function，但似乎填满了过滤的单元格… 我们不能添加“自动填充单元格”这样的参数吗？像这样的东西： Selection.AutoFill Destination:=ws.Range(ws.Cells(1, 1), ws.Cells(300, 1)), Criteria1:="=" 感谢您的回复！

Excel自动填充问题: 我遇到了VBA脚本的问题。该函数用一些公式填充表单。它在大多数情况下工作正常，但是当我在一个更大的数据集上运行它时，它崩溃了：运行时错误“1004”：Range类的自动填充方法失败 debugging器指向最后的自动填充调用。当我查看表单时，看起来自动填充调用大概3/4的方式工作，但停止。 With Sheets("OPENS") ' Fill OPENS formulas .Range("B" & firstRowOPENS – 3) = "=DATE(YEAR($B$1), MONTH($B$1)+2, DAY($B$1))" .Range("B" & firstRowOPENS – 3).NumberFormat = "[$-409]mmm-yy;@" .Range("C" & firstRowOPENS – 3) = "=C1+2" .Range("B" & firstRowOPENS – 1) = "=SUBTOTAL(109,B" & firstRowOPENS & ":B" & lastRowOPENS & ")" .Range("B" & firstRowOPENS – 1).AutoFill […]

编号以1为增量，从1到N，无硬编码: 我也问过这里： http : //www.mrexcel.com/forum/excel-questions/796167-numbering-increments-1-1-n.html 我正在使用一个命名单元格，从这个位置向右13个位置，我想要开始编号，直到它到达同一命名单元格的2个位置的列中的最后一个单元格。我问，因为我的表会改变，并有一个命名的参考是有利的。这是我录制一个macros后清理它。select，它仍然有一个硬编码的目的地范围。这里是一个说明性的例子： Sub Macro2() Range("endofheaders").Offset(0, 13).FormulaR1C1 = "1" Range("endofheaders").Offset(0, 13).AutoFill Destination:=Range("DZ6:DZ21"), Type:=xlFillSeries End Sub 我希望这不会太混乱，但是当我没有考虑到我的源表将要改变它的大小时，下一个代码就是我以前的代码。它到处都有硬编码的范围，这就是为什么当我编辑表格时，它停止工作。 With Range("EA6:EA" & Range("DN" & Rows.count).End(xlUp).Row) .Cells(1, 1).Value = 1 .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Trend:=False End With 提前致谢。