Tag: 自动填充

根据一定的标准自动将数据从一个标签填充到另一个标签: 我在Excel 2010电子表格中input客户详细信息，例如客户名称，date，订单描述，订单数量等等。有时，在某些标准下，需要将相同或部分相同的信息添加到另一个标签，即tab2，在同一张电子表格上。我想创build一个自动化的系统来填充tab2，但不知道如何。我想在tab1中创build另一个列，在所有的客户信息之前，当被问及“是否符合将客户信息添加到tab2”的标准时，其具有是/否的下拉列表选项。这个列将作为一个警报，所以如果我select“是”，那么我inputtab1的任何客户信息将填充到tab2。但我不知道如何做到这一点，任何人都可以帮忙吗？

自动填充直到数据结束B列VB.Net: 我在VB.net中没有问题。我有列A列B数据excel文件。我想在C列中将值写为“USD”，直到列B或列A中的值结束。在Excel VBA中，我使用 Range ("C2") = "USD" Range("C2").Copy Range("C3", Cells(Rows.Count, "B").End(xlUp).Offset(0, 1)) 这填充美元，直到B栏的价值结束。任何人都可以帮助我如何获得这个在VB.Net？我在VB.net中尝试过这样的东西。 With objworkbook2 Dim my_variable As String Dim Worksheets = objworkbook2.Worksheets("Test USD") my_variable = "USD" if Worksheets.Cells(2, 1).Value >= 1 Then 'Cell A9 contains Number Worksheets.Cell(2, 3).Value = my_variable End if End With 请帮助我如何在VB.Net中循环

Excel Vlookup与Autofill VBA: 我试图制作一个看起来非常简单的macros，但事实certificate比我想象的要困难。我开始使用“点击”方法，但没有像我想象的那样dynamic。基本上我使用vlookup从另一个工作表中查找单元格A2中的名称，然后将D列中的数字复制到当前表单中。在查看代码时，这部分看起来像这样： Range("D2").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-3],'Downstairs'!R[-1]C[-3]:R[200]C[14],4,0)" Range("D2").Select Selection.AutoFill Destination:=Range("D2:D" & lastrow&) find第一个数字后，我正在尝试自动填充剩下的数字。它运行时，它运作，但我认为这是因为名称是为了。但是，如果名称不正确，将无法find正确的数字，部分原因是R []和C []内部的所有数字随着行数的不同而不断变化。我不认为这会工作，如果我添加更多的名单，这是我需要做的事情。我把R []中的数字从93改成了200，因为我真的不知道如何把我之前做过的拉斯特罗对象合并到一起，而我不知道如何使这个dynamic变成另一种方式。有一个更好的方法吗？

Excel：当在第一列中input值时自动填充（复制）整行: 我正在使用Excel 2010，并在input第一个列中的唯一标识符时寻找一种自动完成表格整行的方法。例如一种仓库的日志：表中的每一行都包含一个项目，上次销售时具有唯一的ID，说明，类别，奖品和date。每次出售物品时，我会添加一个新的行，其中ID，说明和类别保持不变，但是奖品和date各不相同。如果在第一列中input标识，并且在第二列和第三列中的描述和分类已经存在旧标识的情况下，如何自动填充？此外，我更喜欢自动填充的单元格包含值而不是公式（以便更新的一个ID的条目不会更改，如果该ID的旧条目应稍后更改）。我不知道VBA，但也许有可能没有？提前致谢！

Excel VBA：将硬编码列更改为dynamic范围以自动填充到最后一行: 你好，从一个没有经验的VBA用户..我尝试使用列命名范围时，自动填充到最后一行代码的麻烦。一切似乎工作正常，当我使用硬编码的列，在这种情况下列CW，我需要的是用命名的范围replace此列CW，以便macros添加或删除工作表中的列时仍然工作。我使用了以下命名范围： First_Date：这是其中一列的标题单元格（在这种情况下是AP5） Second_Row：这是我想复制公式的列的范围（AP7：CW7） Second_Cell：我要开始自动填充的单元格（AP7） Last_Column：这是我想在代码中使用的CW列。自动填充将由此栏到最后一行。在不同的线程search后，我想出了下面的代码似乎很好。如何将列CW更改为命名范围？或者我需要更改代码？ Dim Lr As Integer Lr = Range("First_Date").End(xlDown).Row 'Searching last row Rows(Lr).Insert Shift:=xlDown 'Inserting new row Range("Second_Row").AutoFill Destination:=Range(Range("Second_Cell"), Range("CW" & Lr)) 任何人都可以在这里协助我吗？

Excel – 拖动和重复公式图案系列: 我试图在Excel中复制公式的模式，但它不是以我期望的方式出现，但我正在寻找一个解决scheme。我有一个表中的前两行定义，它有4列公式如下： A1 =CONCATENATE(Scores!D11," (",Scores!F11,")") B1 =Scores!AF11 C1 =Scores!AH11 D1 =Scores!AH15 A2 =CONCATENATE(Scores!D17," (",Scores!F17,")") B2 =Scores!AF17 C2 =Scores!AH17 D2 =Scores!AH21 我期望当我突出显示的单元格，并拖动它将重复公式通过将6添加到所有的值如上所示。有一个简单的方法来自动填充我需要的行，因为我必须填充超过80个，未来可能会更多。

通过search多个列自动填充: 我试图find一个公式说，看所有的列A – 如果你看到单词“桌面”，从列B加起来他们所有的金额，并把它放在F1。然后相同的笔记本电脑。我知道我可以手动按住'ctrl'键并点击台式机，笔记本电脑等的所有美元数额，但这个列表增长，我不想回到单元格F1，并插入新的单元格每一次的公式。设备是A列，美元金额是B列。 Switch/Cables $14.00 Misc $80.00 Desktop $567.00 Monitor $150.00 Desktop $567.00 Monitor $150.00 Switch/Cables $23.00 Switch/Cables $7.00 Switch/Cables $6.00 Misc $28.00 Laptop $1,015.00 Desktop $675.00 Switch/Cables $84.00 Switch/Cables $32.00 Misc $28.00 Printer $29.00 Misc $30.00 Misc $615.00 Misc $46.00 Switch/Cables $28.00

用下拉列表创buildExcel表单，并用一个button填写不同的选项卡: 我在Excel中有两个选项卡： – 选项卡1是一个窗体，其下拉列表如下：顾问名称，date，活动，types+手动字段：小时 – 标签2（matrix）是用于许多其他标准的数据，我们需要在标签1中手动input的小时数我想要一个button来获取选项卡1中的信息，以填写选项卡2，但是我需要在选项卡1中find正确的字段，以便将正确的“小时数”放入正确的“顾问”中以获得正确的“date”正确的活动和正确的types。

填充表格时，Range类的自动填充方法失败: 我目前正在使用Excel中的项目来处理原始数据并将其放入表格中。目前该表根据要复制到其中的数据的大小resize。我遇到的问题是，大部分的故事都是基于数据填充公式。我正在尝试自动填充公式到表的最后根据数据确定的大小，并得到错误“自动填充范围类的方法失败” ColNo = 26 + ((large – Year(Date)) * 4) ColLet = Split(Cells(, ColNo).Address, "$")(1) Sheets(sheetsSA).Range("V3:W4").AutoFill Destination:=Sheets(sheetsSA).Range("V3:W" & semi_end + 1) ****Sheets(sheetsSA).Range("X3:Y4").AutoFill Destination:=Sheets(sheetsSA).Range("X3:" & ColLet & semi_end + 1)**** 星号是给出问题的线。任何援助将不胜感激。前两行查找自动填充中使用的列的字母。谢谢

dynamic公式自动填充: 我想知道如何将此代码转换为列I的dynamic范围自动填充，以便以后可以自由编辑Excel表而不需要调整vba代码。 Sub Rowcount() 'Charles, M Dim H As Long Set sh = Worksheets("Report-Charles, M") H = sh.UsedRange.Rows.Count Range("I2:I" & H).Formula = "=IF((AND(OR(E2=""Unrated"",E2=""""),OR(G2<>""Unrated"",G2<>""""))),G2,IF(E2>=""4,25"",""High Performance"",IF(E2<""3,35"",""Low Performance"",IF(AND(E2>=""3,35"",E2<""4,25""),""Medium Performance"",""Unrated""))))" MsgBox (H) & "Rows have been Autofilled with 3 scale Rating Results" End Sub