Tag: autofill

在编码中自动filter写入function不像macros中logging的那样: 我在这里面临一个问题。 formula = "=CONCATENATE(""ML"",MID(cell(C),2,1),MID(cell(C),4,5),""M"",RIGHT(cell(C),2),""_"",LEFT(D52,1),""_Q"")" ActiveSheet.Range("$H$2:$H$1048576").AutoFilter Field:=8, Criteria1:="=SAMP" 'exclude the header Range("A1").Select ActiveCell.Offset(1, 0).Select ActiveCell.FormulaR1C1 = formula 'Range("A2").AutoFill Destination:=Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) Selection.FillDown 我试图用这个编码过滤我的列H. 过滤后，我想用公式填写这些单元格。那是我的公式在那里的任何问题，它可以执行，但不像我所期望的那样工作。而这个代码虽然是像macros一样的。但是当它运行时，数据行显示不像我用macroslogging一样。

填写VBA: 我想要插入一个新的列，粘贴一个公式，并将该公式填充到列A中的数据的末尾。除了填充过程外，我已经完成了所有工作。它到达偏移量时就会失败。有没有办法在VBA中做到这一点？任何帮助将不胜感激！ Sub Macro3() Sheet7.Columns("B:B").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Sheet7.Cells(1, 2).Value = "Reason Code" Sheet7.Cells(2, 2).Value = "=INDEX(ImportsFromMasterData!$B:B,MATCH(Imports!$A:A,ImportsFromMasterData!$A:A,0))" Sheet7.Range("B2").Select Selection.AutoFill Destination:=Range(Range("B2"), Range(Range("A2").End(xlDown)).Offset(, 2)), Type:=xlFillDefault End Sub

VBA根据使用最后一个单元格的相邻列自动填充: 我想在这里做的是写一个代码，将自动填充列A到最后一行的数据，根据列B，使用列A中的数据的最后一个单元格作为自动填充的范围。例如列A是“名称”，B是“date”。 B列有6个date，而列A每隔几行有一个不同的“名称”。这是我到目前为止：小测（） Dim lastRow As Long lastRow = Range("B" & Rows.Count).End(xlUp).Row Range("A2").AutoFill Destination:=Range("A2:A" & lastRow) 结束小组这是我的问题：我想运行该脚本，并selectA中的最后一个填充的单元格（例如A4），并自动填充到列B中的数据的最后一行。我的问题是不断select“A2”而不是A中的最后一个单元格（在本例中为“A4”）来自动填充并填充“A2”列的所有列，到正确的距离。

Excel 2010 VBA自动填充整个列: 我无法让VBA执行相同的自动填充整行（例如，当您用公式单元格的加号双击并自动填充适当数量的列时）。沿着列AI有一个date列表。沿着第三排，我有一个公式列表。我如何编写一个macros来实现这个function： For i = 2 to Columns.Count 'FillDown the whole of Column i with the formula in Cells(3,i) Next i 我想填写下来，不只是一个确切的公式的副本…有谁知道这可以做到这一点？到目前为止，我已经有了一个20分钟左右的方法，但是当我手动完成这个过程时，并不需要太多的时间，所以我认为必须有一个更快的方法。非常感谢您的帮助！

应用代码两次时自动填充“错误400”: 在某张纸上执行自动填充操作时，我的代码工作正常。除了当我也想在另一个填充执行相同的操作，我得到一个“错误400”，我不明白为什么。这工作正常： Sheets(2).Range(Cells(9, 1), Cells(9, 4 + Sheets(3).UsedRange.Columns.Count)).AutoFill Destination:=Range(Cells(9, 1), Cells(7 + Sheets(3).UsedRange.Rows.Count, 4 + Sheets(3).UsedRange.Columns.Count)), Type:=xlFillDefault 但是这给了一个错误： Sheets(7).Range(Cells(2, 1), Cells(2, 4 + Sheets(3).UsedRange.Columns.Count)).AutoFill Destination:=Range(Cells(2, 1), Cells(7 + Sheets(3).UsedRange.Rows.Count, 4 + Sheets(3).UsedRange.Columns.Count)), Type:=xlFillDefault Sheets(2).Range(Cells(9, 1), Cells(9, 4 + Sheets(3).UsedRange.Columns.Count)).AutoFill Destination:=Range(Cells(9, 1), Cells(7 + Sheets(3).UsedRange.Rows.Count, 4 + Sheets(3).UsedRange.Columns.Count)), Type:=xlFillDefault 解决scheme Sheets(7).Range(Sheets(7).Cells(2, 1), Sheets(7).Cells(2, 4 + […]

VBA子程序填写公式栏: 我有一个当前的小组，我以某种方式组织数据，甚至在工作表的第一行中input一个公式，但我遇到的问题是希望它能够调整多远，以填补公式基于相邻列的空/非空状态。例如，每次运行一个报表时，我都会得到一个不可预知的数量的返回logging，这些logging会填充A列中的行，但是，由于我想从返回的logging中提取string到不同的列中，因此我必须input公式在接下来的三列（B，C和D）中每次迭代。有没有办法插入一行来评估列A中不是空白的行数，然后填写列B，C和D中的公式到最后一行？（我知道，一旦在第一行input信息，表格会自动执行此操作，但由于逻辑原因，我不能使用表格）。我填写公式B列2中的公式的当前代码是： Range("B2").Select ActiveCell.FormulaR1C1 = "=MID(RC[-1],FIND(""By:"",RC[-1])+3,22)" 谢谢！

VBA使用LastcolumnfindLastrow: 我想能够确定特定列的最后一行。但是，这个专栏是不断变化的。因此，我使用variableslastcolumn2来确定我需要弄清楚的列。一旦我找出最后一行，我需要自动填充这个列。我目前的代码如下： Dim lastColumn2 As Long lastColumn2 = Worksheets(1).Cells(1, Columns.Count).End(xlToLeft).Column Dim Lastrow2 As Long Lastrow2 = Range(lastColumn2 & Rows.Count).End(xlUp).Row Cells(2, lastColumn2 – 1).Select ActiveCell.FormulaR1C1 = "=IF(AND(RC[-1]>3,isnumber(RC[-1])),10,IF(AND(VLOOKUP(RC[-4],R1C[-11]:R50000C[-6],5,FALSE)=10,RC[-1]<3),""Depart"",0))" Selection.AutoFill Destination:=Range(Cells(2, lastColumn2 – 1), Cells(785, lastColumn2 – 1)) Range(Cells(2,lastcolumn2,).AutoFill Destination:=Range(Cells(2,lastcolumn2):lastcolumn2 & lastRow)

Excel VBA – 自动填充只在debugging过程中起作用: 我正在尝试从另一个工作表上的工作表中的工作表复制单元格，并尝试将表中包含的公式自动填充到新创build的行中。我的macros基本上从“需求”表中的有序表中取出所有可见的单元格，并将它们的值直接复制到“ITA＆IO-EOTP”表中的表下。表格自动展开，但并不是所有的公式都被应用到新的行（有些是）。然后我从上面一行调用一个自动填充到新行。当所有的新ID被复制，我sorting的一切。问题是：当我逐行debuggingAutoFill的时候，当我启动没有断点的macros时，它会被简单的跳过…我不知道这是什么原因！我已经花了整整一天的时间来试图弄明白这一切，这让我疯狂！这是整个macros： Public Sub InsertIntoITA() Dim y, availPos, startPos As Long Dim currCell, currSel As Range 'make it fast, plz Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ThisWorkbook.Activate Sheets("Demands").Select demandsImported = True 'check if demands were imported first If demandsImported Then 'select all new demands y = Range("A65536").End(xlUp).Row Set currSel […]

自动填充macros，当列中有合并单元格时发生错误: 我有下面的代码：它工作得很好，但是当列合并单元格，结果是错误的。如果有任何方法可以避免合并单元格的计数或更具体 – 只计算列B中只包含7个字符的数据： Sub Second() Range("B15:I15").Select Selection.AutoFill Destination:=Range("B15:I" & Range("B" & Rows.Count).End(xlUp).Row) End Sub'

从第2页复制到最后一个单元格: 好吧，这很难解释，如果我告诉你会更好。我从第2页 – 细胞A和B拉动数据每次行的数量将不同，所以我试图让一个macros从第一页的预制框复制到第二页的行结束。在第2页说，行停在25，我只希望它在第1页上复制25x 下面是它的外观，如果我突出显示这个框，然后将鼠标放在右下angular，我可以将它拖下来，并将其复制给我。这就是我试图让macros执行的操作。但是，我不知道如何使用我的macros？！ Sub Test()' Range("G2:J3").Select Range("J3").Activate Selection.AutoFill Destination:=Range("G2:J5"), Type:=xlFillDefault Range("G2:J5").Select End Sub