Tag: macros

当粘贴到表格的VBAmacros崩溃: 我正在试图创build一个macros，其中它需要一个dynamic的行数（用户input），并将其粘贴到另一个表中的表中。起初，我正在困难的时间寻找并寻找方法。我有一个下面的解决方法，第一次工作（它正确地采取“原始”范围，并将其粘贴到表），当我从VBA运行它，但当我按下macros分配button后崩溃。我的代码如下： Sub AddRawData() Dim count_of_data As Long Dim rng As Range Set rng = Sheets("New Input Raw Data").Range("B5", Range("B5").End(xlDown).End(xlToRight)) count_of_data = rng.Rows.Count Sheets("Master Data").Select For x = 1 To count_of_data ActiveSheet.ListObjects(1).ListRows.Add Next x Sheets("New Input Raw Data").Select rng.Select rng.Cut Sheets("Master Data").Select Range("b65536").End(xlUp).End(xlUp).Select ActiveCell.Offset(1).Select ActiveSheet.Paste End Sub 我困在此刻，并尝试了使用ActiveCell.paste或Range.Paste，但运行到相同的崩溃问题的各种工作。任何build议或代码更正将不胜感激。谢谢！

将工作簿中的值复制并粘贴到已closures的工作簿中: 我对VBA编码相当陌生，请原谅任何无知。如何从工作簿1中的一张工作表（DIC）复制并从第一个空行开始将工作簿中的值（工作簿）粘贴到第二个工作簿中？我没有经常打开的第二张工作表，所以如果不打开就可以完成，那将是首选。我编译了一个代码，将它复制到同一个工作簿中的第二个工作表中，但当我把它放到第二个工作簿中时，我很难过。这是我迄今为止的代码： Sub copytoarchive() 'Copy From DIC Sheets("DIC").Select Range("A4:Q4").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy 'Paste into Archive Sheets("Archive").Select Dim NextRow As Range Set NextRow = Range("A65536").End(xlUp).Offset(1, 0) NextRow.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Clear Memory Set NextRow = Nothing End Sub

使用macros比较2个Excel文件: 我只是想知道是否有任何方法比较使用macros的两个Excel电子表格。我有一块macros，基本上做的工作，但它逐列检查。所以说如果我有一个在sheet1 A(1,1)中定义的值，并且如果sheet1中的A(1,1)中不存在相同的值，但是存在于列的任何一行中的值则不会提出投诉。 'compare Sheet Sub CompareTable() Dim tem, tem1 As String Dim text1, text2 As String Dim i As Integer, hang1 As Long, hang2 As Long, lie As Long, maxhang As Long, maxlie As Long Sheets("Sheet1").Select Columns("A:A").Select With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("A1").Select Sheets("Sheet2").Select Dim […]

尝试自动填充到最后一行数据: 所以我想用VLOOKUP填充一列。我想填充从当前单元格到数据最后一行的范围。我已经看了这里的问题，我看了其他的例子，它应该可以工作，但是它所做的只是停留在第一个空白单元格。我想在D3使用vlookup并自动填充到数据的最后一行。这是我的代码到目前为止。 Dim lastRow As Long lastRow = Range("D" & Rows.Count).End(xlUp).Row Range("D3").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],Messages.csv!C1:C18,15,FALSE)" Range("D3").Select Selection.AutoFill Destination:=Range("D3:D" & lastRow) 我的设置有什么问题？谢谢！

excel vba：总结列值到最后一列: 以下是我的excel格式。 KZ列是所有列的Grand Total A|B|C|D|E|F|G|H|…..|KZ| 2|4|3|5|5|6|2|7|…..|34| 8|2|3|5|6|6|3|7|…..|44| 2|0|3|5|5|6|2|7|…..|30| 9|4|3|6|5|6|2|7|…..|44| 2|4|5|0|5|6|3|2|…..|24| 在我的Excel表中有1000个这样的行。我想写一个macros来将所有的列值总和为KZ 。请帮忙这是我正在尝试的代码： Sub SumMacro() Dim columns As Long columns = Sheets("AllData").UsedRange.Columns.Count Set testData = Sheets("AllData").Range("b65536").End(xlUp) ' Here I want to apply for/do while loop to sum up all the rows. ActiveCell.FormulaR1C1 = "=SUM(RC[-309]:RC[-1])" End Sub 问题：我是VBA的初学者，所以我不知道如何dynamicselect范围。

dynamic查找数据透视表中的相应元素: 目前我有一个数据透视表的forms Employee No. Hours 101010 150 12456 140 etc etc 现在有另一个电子表格，目前看起来像这样 Employee No. Name Level Organization Code Manager Organization Code etc 101010 Bob CP3 etc etc etc etc 12456 Jane CP2 etc etc etc etc 第二张纸自动从第三方软件中提取。不幸的是，它并没有拉那个员工的小时数。这个报告有时候每个月都会按照不同的顺序对员工号码进行点击，所以我需要一些东西，而且会和数据透视表中的员工号不匹配。例如，假设我们有 Employee No. Name Level Organization Code Manager Organization Code etc 101010 Bob CP3 etc etc etc […]

excelmacros来解码用示波器数字化的串行线路信号（过采样）: 我用示波器对232 UART进行了数字化处理。我想写一个macros来解码在ASCII字符接收到的数据。这里附上了这个文件。信号从0移动到3伏。采样频率为1MHZ。我可以从哪里开始？ http://www.tr3ma.com/Dati/C3lightbridge00004.txt http://www.tr3ma.com/Dati/C3lightbridge00005.txt

vbaselect一个单元格中写入的范围: 我已经做了一个公式来更新我需要的范围，所以例如单元格A1会说A1:B9 （当新的数据下载时总是会改变）。我需要知道如何让我的VBA看单元格A1并使用它作为范围，例如 ActiveSheet.Range ("a1").select 显示A1:B9的范围，而不仅仅是a1范围。这可能吗？？

macros在Excel 2007中不工作总是出现错误找不到项目或库: 任何人都可以请解释下面的代码，因为我是新的 SolverOk SetCell:="Profit_test_prem!$q$7", MaxMinVal:=3, ValueOf:="0.02", _ ByChange:="Profit_test_prem!$b$15" SolverSolve UserFinish:=True SolverFinish KeepFinal:=1 Worksheets("Profit_test_prem").Calculate

从B列粘贴到Colum D的VBA Excel问题: 我必须将B列的产品代码复制/粘贴到D列。 B列中的大部分单元格都是这样的： XX787 DO BOLOGNESE 2X2.28KG FR 项目代码是这种情况下的前5个字符。但B列中的几个单元格就是这样的： 01333379水稻长粒PB磨10 BB 在这些情况下，项目代码不是5而是8个字符，并且存在数字+第一个字符是零。我有的问题：当我从B列复制/粘贴到D列时，不会显示开始时的零点。我尝试将所有单元格值粘贴为文本，以便显示零，但这并没有帮助。我用这个代码格式化为文本：ActiveSheet.Range（“B：D”）。NumberFormat =“@” 第一个字符放在B列，但是当它更多的字符，其余的字符也不会被放入…