嗨,马克和我是VBA的新人。
我有两个工作簿,其中包含需要比较的数据。我目前正在使用这段代码来进行比较。它起作用了,给出了我所需要的结果。
我想要添加的是在我的第二个工作簿范围D:D中的描述中搜索并将匹配带回到活动工作簿中的单元格单元格(rw,4)。此信息将放置在单元(rw,29)中。
我已经研究过查找函数,但无法让它跨两个工作簿工作。这里的挑战是,我搜索的工作簿或活动的工作簿名称会发生变化。
Sub VlookUpExampleDifferBooks()
'This example look up table in different book and sheet (TABLE 1
我有创建数据透视表的代码,然后用数据填充另一个工作簿。它打开一个作为数据模板的工作簿,填充它,保存并关闭。它对8个不同的数据集执行了8次。我以前多次运行这段代码都没有问题,似乎现在它开始在第二组数据上出现错误:"Cannot change part of a data table“(第一个数据集可以工作)。它出错的部分是...
'Transfers Repairs Data
Range("D27").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],'[VBA Project.xlsm]
我有一个类似下面的Excel VBA代码,它可以在工作簿中的所有工作表上运行,并且工作得很好:
Sub MarkCells()
Dim ws As Worksheet
For Each ws In Worksheets
With ws
.Range("C4:C" & .Cells(.Rows.Count, "B").End(xlUp).Row).FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],List,1,FALSE)),""KEEP
我有一个函数,它打开一个工作簿,存储我的查找表,然后获取特定位置的单元格值并保存它,但是,对于不同的VLookup表,这个函数重复了多次。是否有一种不打开工作簿来引用工作表的方法?本质上,我希望替换Workbooks.Open函数,这样它就不会打开所有不同的工作簿。下面是使用Workbooks.Open行的一个函数的示例
Function GetScopeFilename(axsunpart As String, sweeprate As Double)
Dim wbSrc As Workbook, ws As Worksheet, position As Long
Set wbSrc =
我正在引用另一个封闭工作簿来执行VLOOKUP。手动输入单元格可以工作,但是VBA中的这段代码返回了一个错误“类型不匹配”。我遗漏了什么?
With ActiveSheet
For i = 2 To .Cells(Rows.Count, 4).End(xlUp).Row
.Cells(i, 5).Formula = "=VLOOKUP(""*""&$D" & i & "" * "" & ",'\\MyDirectory\[MyWorkbook.
我有两本练习册。在第一个工作簿(包含宏)中,我尝试执行vlookup以确定第二个工作簿(tmp_workbook)的A列中是否存在值strCompany。
我收到以下VBA错误:"Unable to get the Vlookup property of the WorksheetFunction class)“
Dim company_exists_in_list As Variant
Dim main_workbook As Workbook, tmp_workbook As Workbook
strCompany = main_workbook.Sheets("Inpu
在“模块”窗口中创建一个工作簿并写入宏之后,宏会被分配给一个按钮。通过单击“查看”>“保护共享工作簿”来保护工作簿将使该工作簿的整个VBA项目“不可见”,确切的错误消息是"Project is Unviewable“。此外,“条件格式”按钮是灰色的。
取消对工作簿的保护,并使用"allow changes by one or more...“选项共享工作簿。勾选不起作用。
宏仍然有效,但我希望能够解决“项目不可见”的问题。
我正在尝试从位于不同工作簿上的表中执行Vlookup。
- From a similar post in this forum I got a working formula `=VLOOKUP(E37,tblCosts[#All],COLUMN(tblCosts[Jun-17]),FALSE)`
- I need to reference the table. How do I append the workbook name in the formula?
一旦我使用了这个公式,我将如何用VBA编写它,从单元格值读取表名和列名?
我正在excel工作簿中设置一个关键字的“数据库”(它混合了业务线、业务单位和一些其他信息)。我需要用这些键做一个VLookup,并在另一个excel工作簿中搜索这些键。我想通过VBA来实现这一点。 Sub CreateVLookUp()
Dim rw As Long, x As Range
Dim extwbk As Workbook, twb As Workbook
Dim KeyRange As Range
Dim KeyCell As Range
Dim lastrow As Long
lastrow = Worksheets(
我正在使用VBA自动化Excel中的报表构建。在这个过程中,我使用vlookup来比较列表。表1包含大约18万个具有唯一ID的行项,vlookup接受该ID,并与表2中的“所有者”和大约250,000行项进行比较。这个操作的运行时间大约是25-30分钟,我想知道是否有更快的方法?也许我应该使用Excel之外的脚本来执行这个比较,以减少计算时间?
它工作得很好,所以我没有试着排除故障。我有一些想法,围绕工作以外的excel,在后台,但寻找想法,从更广泛的小组。
下面是我现在用来执行查找的行,它在代码中重复了5倍。
Range("Table").Offset(1).Select
A
我试图在VBA中创建一个简单的宏,以更改工作簿中所有工作表中相同单元格的名称。然而,由于某种原因,它不起作用。有人能给我解释一下是怎么回事吗?为什么要将公式更改为查找值,而不是公式呢?
Sub RenameTest()
For Each aSheet In ActiveWorkbook.Worksheets
aSheet.Activate
If aSheet.Name <> "Test" Then
Dim lookupvalue As String
Dim formulavalue As String
我正在尝试将数据从报告的注释列复制到主评论栏。我尝试过Vlookup和If和函数,但是它们没有工作,因为我使用多个标准来识别需要复制的数据。我对编码很陌生,但我相信VBA代码是解决方案。
有人发布了类似的信息,但并不能识别多个标准的使用。这是他们的职位
Sub Copydata()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim x As Workbook
Dim y As Workbook
Set x = Workbooks.Open("C:\Users\User1\Docum
我有两个包含数据的独立工作簿。我正在尝试使用vlookup查找单元格值匹配。
工作簿1中的列包含字母数字数据,工作簿2中的列也包含字母数字数据。
我有以下代码来尝试确定匹配:
Sub VirtualHostLookUp()
'TO DO: iterate through all required workbooks and do lookup
'open the workbook of interest
'Workbooks.Open ("C:\Documents and Settings\1147808\My Documen