EXCEL/Macro如何查找最后一行
EXCEL/Macro如何查找最后一行？
在Excel中，可以使用宏（Macro）来查找最后一行。下面是一种常用的方法：
- 打开Excel文件并按下Alt + F11，打开Visual Basic for Applications（VBA）编辑器。
- 在VBA编辑器中，选择插入（Insert）-> 模块（Module），创建一个新的模块。
- 在新的模块中，输入以下代码：
Function FindLastRow(sheetName As String) As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(sheetName)
FindLastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
End Function- 关闭VBA编辑器。
现在，你可以在Excel中使用这个自定义函数来查找最后一行。以下是使用示例：
- 在Excel工作表中，选择一个单元格作为结果的位置。
- 在选定的单元格中输入以下公式：
=FindLastRow("Sheet1")其中，"Sheet1"是你要查找最后一行的工作表名称。你可以根据实际情况修改这个参数。
- 按下Enter键，即可得到最后一行的行号。
这种方法通过VBA编写了一个自定义函数，它会在指定的工作表中查找最后一行。函数使用了xlUp方法来查找从第一列开始向上的最后一个非空单元格，然后返回该单元格所在的行号。
推荐的腾讯云相关产品：腾讯云云服务器（CVM）和腾讯云数据库（TencentDB）。
相关·内容
我有一个用逗号分隔的csv文件。我使用csv文件，因为我使用它作为“主”文件来保存大量信息，但我更喜欢列，而不是用逗号分隔它。
因此，我需要的代码是能够运行一个宏，该宏将从我的“复制”excel工作簿中获取单元格，并将其附加到我的“主”csv文件底部新的空白单元格开始的位置。
例如：
A B C
Week Time Month
3 09:03 March
我的Master.csv将具有相同的列标题，当我从每周更新的copy.xlsx中获得新信息时，我将希望不断更新Master.csv。
Sub move2()
Dim x As W
浏览 7提问于2017-03-03得票数 0
回答已采纳
1回答
假设我有两个文件：
FILE1.xls
FILE2.xls
FILE1.xls包含：
AAA
BBB
FILE2.xls包含：
XXX
YYY
ZZZ
我现在有这样的代码：
Sub LoopAllExcelFilesInFolder()
'PURPOSE: To loop through all Excel files in a user specified folder and perform a set task on them
'SOURCE: www.TheSpreadsheetGuru.com
Dim wb As Workbook
Dim myPath As
浏览 0提问于2016-01-26得票数 2
回答已采纳
从B5，C5，D5，..。我有一个excel文件，如下所示：
请注意，我在前3行有一些标题和标题文本，所以我需要让Macro根据行的标题设置从第5行到末尾的每个列的类型(标题只是为了提到所需的类型)，您能告诉我如何在Excel中这样做吗？
谢谢
浏览 0提问于2013-12-17得票数 2
回答已采纳
我有一个简单的宏，每30秒保存一个excel文件(在excel 2003中)。我打开了两个运行相同宏的excel文件。问题是，当他们保存工作簿时，会在我打开的其他工作簿前面“弹出”。
这是非常恼人的，有谁知道如何防止这种行为。
Public Sub macro_save()
Application.EnableEvents = False
Application.DisplayAlerts = False
ThisWorkbook.Save
If Second(Now) < 30 Then
Application.OnTime VBA.T
浏览 0提问于2013-04-14得票数 0
回答已采纳
1回答
我正面临着这个代码的问题。此代码的目的是将保存在文件夹中的所有visio文件从EXCEL VBA宏转换为pdf。
使用此代码，我可以打开visio文件，但无法转换为pdf file....it，显示“对象所需”错误.
FName = myPath & myFile
Dim objDoc: Set objeDoc = VisioApp.documents.Open(FName)
objDoc.ExportAsFixedFormat VisFixedFormatTypes = 1, FName, VisDocExIntent = 1, VisPrintOutRange = 0
我正
浏览 4提问于2016-06-04得票数 1
1回答
我相信，对于比我更有经验的程序员来说，这将是一个容易的选择，但这个问题困扰着我，我做了几次失败的尝试，所以我想看看其他人会想出些什么。
我有大约一百条字符串，看起来像这样：
(argument1 OR argument2) | inputlookup my_lookup.csv | `macro1(tag,bunit)` | `macro2(category)` | `macro_3(tag,\"expected\",category)` | `macro4(tag,\"timesync\")`
目标是查找宏函数的参数，并将它们替换为参数的计数，以便最终的输出如
浏览 2提问于2017-08-08得票数 1
回答已采纳
我的Excel:-
我创建透视的VBA代码：-
Sub Macro10()
'
' Macro10 Macro
'
' Keyboard Shortcut: Ctrl+q
'
Application.CutCopyMode = False
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R20C4", Version:=6).CreatePivo
浏览 0提问于2020-03-15得票数 0
我为下面的excel录制了一个宏： ? 宏代码：- Sub Macro4()
'
' Macro4 Macro
'
' Keyboard Shortcut: Ctrl+Shift+D
'
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "P"
Range("B1").Select
Se
浏览 57提问于2020-03-14得票数 0
1回答
我有一张包含大量数据的excel图表。
每隔几行为空
当有一个空白行时，我希望将列A中的单元格和下面行中列B的最后4个字符连接起来，只要下面列A中的单元格不等于“。
我有以下几点：
Sub Macro3()
'
' Macro3 Macro
'
'
For Each cell In Columns("A")
If ActiveCell.Value = "" Then ActiveCell.FormulaR1C1 = _
"=IF(R[1]C<>"".&#
浏览 1提问于2013-11-25得票数 0
我的问题是，在不使用excel、Interpol或Macro的情况下，在excel中获取单元格的位置。只有c#和OpenXML。位置类似(A3)。
浏览 0提问于2017-10-16得票数 1
2回答
工作表特定的宏
、、
我有一个工作簿，里面有三张excel表格。我希望用户能够从第三个工作表复制数据，这是在第二个工作表的计算结果。无论如何，我使用的代码
'The code for the Macro
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim col As String
Dim msg As String
col = Split(Target.Address(1, 0), "AOS")(0)
'Permet d'éviter les modifications des modifications man
浏览 4提问于2013-06-26得票数 0
我有一个Excel文件，其中有CSV数据源和透视表，我想自动刷新所有数据源和透视表，并在打开excel文件时将一个透视表导出为CSV。
我尝试了以下代码，但此代码在刷新数据之前导出CSV文件。
请帮助提供解决方案。提前谢谢。
Private Sub Workbook_Open()
ThisWorkbook.RefreshAll
Run "Macro1"
End Sub
Sub Macro1()
Dim ws As Worksheet, newWb As Workbook
Dim SaveToDirectory As String
SaveToDir
浏览 2提问于2015-08-04得票数 2
回答已采纳
2回答
? 我正在运行vb.net中的Excel Macro来对数据范围进行排序，但收到以下错误，如所附图像所示 ? 我的代码是 Dim ws As Worksheet
Dim lastRow As Long
Set ws = Worksheets("Result_T10")
lastRow = Worksheets("Result_T10").Range("C2" & Cells(Rows.count, "C").End(xlUp).Row)
with ws
ws.Range("C2" &
浏览 65提问于2020-08-27得票数 0
1回答
我创造了附属物。它起作用了。我想快点！
信息："Macro“和"Promo Claims”工作簿以及"csv“文件夹位于一个名为”模板“的文件夹中。
目的:为每天/每周/每月使用的过程创建一个模板。
输出/结果:我希望它运行得更快，因为当csv文件达到100或更高时，经过的时间呈指数增长。
我理解，选择，激活，减慢事情，但我不能使我的昏暗变量设置正确和工作正常。
Sub Metcash_claim_import()
'Metcash Claims Import Macro
Dim SourceWB As Workbook 'Metcash
浏览 0提问于2018-08-27得票数 1
回答已采纳
在使用ExecuteExcel4Macro运行Python中的Excel宏时，我总是得到错误的结果，下面是执行的代码：
import win32com.client
filename = r'E:\excel.xls'
xlApp = win32com.client.Dispatch('Excel.Application')
xlApp.visible = 1
xlBook = xlApp.Workbooks.Open(filename)
strPara = xlBook.Name + '!Macro1()'
res = xlApp.Exec
浏览 4提问于2011-10-16得票数 2
3回答
嗨，我想在windows上用python代码打开一个excel (python版本是3.6.10) 我使用了链接Running an Excel macro via Python?中的代码 import win32com.client as wincl
excel_macro = wincl.DispatchEx("Excel.application")
excel_path = os.path.expanduser("Valuation.xlsm")
workbook = excel_macro.Workbooks.Open(Filename = exce
浏览 27提问于2020-05-01得票数 0
回答已采纳
我最近开始使用python 3.6 (通过Anaconda)，所以如果下面的结果不是很清楚，我很抱歉。情况如下：
我有一个excel文件，我用它来运行宏，以便从Prophet获得结果。我的宏运行良好，但不幸的是，在多次使用后，excel达到了内存限制，我无法再提取结果。解决这个问题的方法是关闭excel，然后重新打开它。
为此，在同一个vba宏中，我打开了一个python脚本，该脚本允许我运行宏，保存excel文件，关闭它，然后再次打开它。宏如下：
import win32com.client
object = win32com.client.Dispatch('Excel.Appl
浏览 8提问于2017-03-16得票数 0
因为我的文档通常有一些可以反复使用的短语，所以我想用热键将它们全部热键，以节省时间。更具体地说，我计划让Macro1 (插入“当然”)，Macro2 (插入“问题是”)和Macro3 (插入“按时间”)分别热键为Alt +1,2,3。如果我按下Alt + 2，“问题是”会立即插入到我的垫子上。
下面是我正在使用的基本宏：
Sub Macro1()
Selection.TypeText Text:="sample text"
End Sub
问题是对于任何新文档，Macro1、2和3的内容经常需要更改。我计划创建一个excel文件来容纳所有的短语，以便于编辑，但不知道如何
浏览 3提问于2017-11-25得票数 0
我发现下面的代码没有返回该列中最后使用的行号。
ThisWorkbook.Sheets(1).Cells(max_row, last_data_column + 1).End(xlUp).Row
它返回的是Excel表中最后使用的行号。
我有一个Excel表，其范围为A1:A1 142。在最后一行(142)中，只有B列有数据，其余数据为空。不管last_data_column是什么，上面的代码都返回142，而不是141 (我尝试了22和23)。
类似地，End(xlDown)不能正常工作。即使只有W1有数据，第一行的其余部分是空的，
ThisWorkbook.Sheets(1).Range(&
浏览 0提问于2019-08-18得票数 0
回答已采纳
1回答
我在为我的一个潜在问题找到一个可能的解决办法方面遇到了一些小麻烦。我正在用VBA为我的主管编写一个宏，这样她就可以点击分配给这个宏的一个按钮，然后按照指示得到她需要的数据。我遇到的问题是，当宏粘贴数据时，如果用户选择多个列，就很难删除空单元格。
Sub DataPull()
' Written by Agony
' Data Pull macro
Dim rng1 As Range
Dim rng2 As Range
Dim chc1
Dim chc2
Dim wb1 As Workbook
Dim wb2 As Workbook
'Choose file to ge
浏览 0提问于2013-11-11得票数 4
回答已采纳
我目前正在修改2005年初制作的宏，并在以前版本的Excel上运行。最近，它正在MS 2010中使用，但我正在使用MS 2013来修改代码。会有什么效果或兼容性问题吗？
一个链接，解释如何处理不同版本的Excels宏将是非常感谢的。谢谢。
浏览 1提问于2014-06-20得票数 2
我的第一个关于Stackoverflow的问题，还有一个新手，所以请跟我说。
我正在整理一个有411,278行的excel表格，关于股票市场的数据。
我的代码如下：
Sub Macro1()
'
' Macro1 Macro
'
Range("C6:C1577").Select
Selection.Copy
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, S
浏览 1提问于2021-01-17得票数 1
在单击按钮时，我希望该按钮被禁用，并在执行进程后重新启用它。
虽然看起来很简单，但由于一个原因，整个进程成功执行，但按钮没有被禁用。在特定的情况下，它会被禁用，而不是在按钮单击的开始。
下面是按钮的XAML代码
<Button
x:Name="PreviewReportButton"
Click="PreviewExcelReportButton_Click"
Background="{StaticResource ExportExcelButtonColor}"
BorderBrush="{Sta
浏览 6提问于2020-10-15得票数 0
回答已采纳
我正在尝试找到一种更好的解决方案，以便更动态地循环遍历具有来自数据库连接的动态值列表的单元格。单元格"B3“有一个我要循环遍历的项目的下拉列表，当选择一个特定项目时，它会刷新工作表以反映该项目的值(Select * from Table where item = X)。项目的数量每季度都会发生变化，因为项目是我们评估的属性列表。有时有50项，有时有5项。如何修改此代码，使我不必进入Macro并将For i=1更新为49循环？我想要的是，它可以查询项目列表并找到项目的数量，或者执行Do While循环，遍历所有值，直到最后一个值。
Dim strfindrow As String
For
浏览 1提问于2018-09-25得票数 0
我正在尝试创建一个能调用任何Excel宏的Powershell脚本。这是可行的，只要我事先知道参数的数量。如果我试图通过使用所有30个方法参数来使其泛化，则会遇到以下错误消息:使用"31“参数调用" run”的异常：“指定的参数数量与预期的数量不匹配”。
到目前为止，我的尝试是从.ps1文件的内容开始：
param (
[Parameter()][ValidateNotNullOrEmpty()][string]$excel_file_location,
[Parameter()][ValidateNotNullOrEmpty()][string]$macro_
浏览 0提问于2019-05-14得票数 1
回答已采纳
我在使用Word中的VLookup时遇到问题。
我使用的是语句
set wsht = GetObject("I:\Pat's Files\word macro for Julie\Test Excel File.xls").sheets("sheet1")
Period1 = wsht.Application.WorksheetFunction.VLookup("*" & Teacher & "*", wsht.Range("$A$3:$K$5"), 2, 0)
如果我的Teacher为B
浏览 0提问于2015-01-11得票数 0
我正在从雅虎财经下载历史股票价格数据，我需要一个被下载的数据点的数量。数据本身被下载，因此第16行是标题行，从第17行开始的所有内容都是数据。我希望工作表可以在Mac或PC上工作，这就是问题所在。
我用来表示数据点数量的代码是：
Dim Cntr As Long
Cntr = Range(ActiveSheet.Range("A17"), ActiveSheet.Range("A17").End(xlDown)).Count
在Mac上，这给出了正确的数据点数量。然而，在PC上，我得到的答案是1太多了，所以我必须修改这行代码，使其看起来像这样：
Cntr = R
浏览 3提问于2013-12-29得票数 2
从A1到A10，数据文件的值为1到10。
A B
1 1 1
2 2 1
3 3 1
4 4 1
5 5 2
6 6 2
7 7 2
8 8 2
9 9 2
10 10 3
我需要插入一个列(如B列)到我的数据文件。在单元格B1中有一个公式(例如：(=INT(A1/5)+1))。我通常双击单元格B1的右下角，这会自动将B列中的其余单元格填充到A列中的数据所在的行中(如上表所示)
通过使用record Macro，它给了我以下代码：
Range
浏览 4提问于2013-10-17得票数 1
我正在尝试使用python在Personal.XLSB中运行一个宏。 当我自己从excel工作簿中运行宏PERSONAL.XLSB!PIVOTS时，它工作了。另外，如果我将vba代码复制并粘贴到“此工作簿”中，然后运行xlApp.Run('Pivots')，它就能正常工作。 但是，当我使用xlApp.Run('C:\\Users\\AppData\\Roaming\\Microsoft\\Excel\\XLSTART\\PERSONAL.XLSB!Pivots')时，它不会工作。我需要它在'PERSONAL.XLSB‘中运行，因为我将在几个文件中使用相
浏览 13提问于2019-05-10得票数 1
我在excel中有一个从程序导入的列，它总是以这种格式导入它，如果这些栏代表单元格、带有尾随空格的\、以及表示一个负数的<>。正数的结果是这样的数字格式是货币，我希望能够对这些数字进行求和，而不必向下移动100或200个单元格，并更改所有这些单元格。
我启动了一个宏，希望对每个单元格进行迭代，删除尾随空格，并将<>替换为()，以指示一个负数，并删除正数的尾随空格。
Sub Macro1()
Dim i As Integer, d As Integer
i = 13
Do Until .Cells(4, i).Value =
浏览 2提问于2017-06-29得票数 0
回答已采纳
我只想使用复制和粘贴可见单元格从一个excel复制并粘贴到另一个excel，因为我在设置的区域之间有一个筛选的表。
我想通过save CSV来做到这一点，但显然这是不可能的。下面的代码可以工作，但它似乎不能像我希望的那样复制粘贴可见单元格/过滤单元格。
提前谢谢。或者，如果有另一种推荐的方法将过滤表转换为CSV，我很想听听。干杯。
Sub Macro2()
'
' Macro2 Macro
'
'
Dim lastRow As Long
Dim ws As Worksheet, tbl As ListObject
Set ws = Sheets("
浏览 4提问于2017-07-03得票数 1
1回答
我有一个启动vb.net宏的应用程序。是否有方法首先检查Excel的宏安全设置？
Imports Excel = Microsoft.Office.Interop.Excel
Private Sub macrotest ()
objExcel.Workbooks.Open(strPath)
if ***'Check her what macro Security Settings is selected!*** Then
objExcel.Run("SortIO")
end if
End Sub
浏览 1提问于2015-10-28得票数 0
回答已采纳
1回答
宏中的列组合
、、
我知道这个话题有很多不同的方面。我今天才刚刚开始研究vba和宏，但是我还没有找到或调整我找到的任何解决方案。
我是拉4列的数据在4个不同的excel文件与约500列和2-4k行的数据在每个文件。
我想出了如何用以下(不雅)的解决方案将感兴趣的列编译成单个excel文件(参见下面)。
我希望有人可以告诉我如何将这16列转换为4列(或者如果有人能够解释如何首先将数据转换为4列，那就太棒了)。
谢谢!
Sub Macro2()
' Macro2 Macro
Workbooks.Open Filename:="[path]"
Workbooks.Open
浏览 1提问于2016-03-26得票数 1
回答已采纳
1回答
我正在尝试从excel表格中删除所有"0“值。我编写了以下代码，但它返回的方法'Range of object'_Worksheet‘失败。我需要做些什么来解决这个问题？ Sub Macro()
Dim ws As Worksheet
''Set reference
Set ws = ThisWorkbook.Worksheets("Compressed Schedule results")
''Apply Filter
ws.Range("A2:B2").AutoFilt
浏览 22提问于2020-01-14得票数 0
回答已采纳
1回答
VBA向下复制和粘贴2行
、、、
我刚接触过VBA，所以我完全是个新手。基本上，我目前正在自动化一个表单，它需要在电子表格上为开发人员写出问题，潜在的答案，说明等。我已经创建了一个基本的模板表，所以所有问题的结构都是一样的。我想复制并粘贴这个表格(清除内容并去掉问题的编号)，然后从最后一个表格的底部向下粘贴2行。 如果我只想复制并粘贴第一个表的正下方，代码就可以正常工作，但我不能再做更多的工作了。我不知道怎么写，我想让它找到最后填写的行，并将表格粘贴到下面两行。 Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+g
'
浏览 33提问于2019-09-11得票数 0
2回答
我想要运行一个Excel代码(它所要做的就是删除同一行中的特定单元格，并且我已经打开了相对引用，以便我可以根据某个单元格中是否存在X来将Excel代码应用于所有行，如果有适当的"X")。
下面是我到目前为止尝试过的( Excel代码被称为“生物学”)：
If Range("C22").Value = "X" Then
Call macro_Biology
End If
我应该补充说，我是在VBA部分"GetATPLabel“下写这个的。就像我说的，总菜鸟，但我想我已经接近了，所以任何帮助都是值得感激的。
浏览 5提问于2015-03-31得票数 0
1回答
井。我有完整的宏观数据。我必须向工作簿中添加一个Workbook_Open vba脚本。但是使用较低的代码，就可以将代码添加到模块部分。我必须将vba代码添加到“此工作簿”部分。
井。对xlsm数据使用vbaProject.bin可能更好。但我认为这在xlswriter库中是可能的。这个库不能将vba添加到现有的xlsm中:(
有人能帮我吗？
# set file paths and macro name accordingly - here we assume that the files are located in the same folder as the Python s
浏览 5提问于2021-04-21得票数 1
回答已采纳
我每天都在excel工作表中填充数据(使用Interop.Excel)。插入数据后，用户将正常打开excel。我想要的是在打开时，在插入的最后一行或特定行滚动excel文件。这就是我所尝试的，但没有效果。 if (position == mTables.Count - 1)
{
Microsoft.Office.Interop.Excel.Range activeCell = excelWorksheet.Cells[decalajMesaje, 1];
activeCell.Select();
acti
浏览 33提问于2020-03-25得票数 0
1回答
我对在excel工作簿中使用VBA非常陌生。
我偶然发现了@曼哈顿作为对另一个问题的回答而提供的一段代码。它非常适合我的工作簿的需要，但我需要帮助建立一个动态范围。
我现在要做的是，让代码只填充足够多的行，以便与P列(这是下面代码正在从中提取数据的枢轴表的行标签列)中的行相匹配，除了最后一行(总是“总计”)？
Sub FillDown()
Dim strFormulas(1 To 3) As Variant
With ThisWorkbook.ActiveSheet
strFormulas(1) = "=SUM($Q3:$S3)"
浏览 1提问于2017-11-06得票数 0
回答已采纳
1回答
我有一个第三方窗口应用程序叫它前。使用app中的基本操作进行一些分析，比如打开软件，运行报告，将结果导出为excel或PDF。
现在，我想使用macro中的宏或一些代码来模拟相同的操作，是否有方法记录我的应用程序DMX的操作并使用macro运行它？
浏览 3提问于2013-12-06得票数 0
回答已采纳
1回答
如何使用word宏在Word文档中复制excel和past中未定义的范围。我试了一下，但没能成功。你能帮帮我吗。
注意:如果我提到的范围，它的工作良好，而我想使用代码NumberOfRows = .Range("A65536").End(xlUp).Row在word宏-我得到运行时错误1004。
Sub InputExcel()
Set appExcel = CreateObject("Excel.Application")
Dim INP_File As Variant
Dim lngRows As Long
Dim LenMgs As Long
Dim
浏览 2提问于2013-09-16得票数 2
回答已采纳
我在Excel中有以下代码(使用Excel 2010)，以欧洲格式(dd/mm/yyyy)查找特定日期，然后取消单元格下面的行(其中包含该日期)：
Sub Macro1()
' Macro1
Dim A As Variant
' Input box to insert a date
A = InputBox("Insert date of the last entry with format dd/mm/yyyy", "User date", Format(Now(), "dd/mm/yyyy"))
If IsDate(A)
浏览 0提问于2016-11-13得票数 0
回答已采纳
1回答
我在玩甜食，为了我的生活，我不明白为什么是不匹配的
代码：
macro -> {
rule infix { () | { $body ... $last:expr } } => {
function( ) {
$body ...;
return $last
}
}
}
var fn = () -> {
var a = 1;
a + 2;
};
expect(fn()).to.equal(3);
结果：
SyntaxError: [macro] Macro `-` could not be matched with `
浏览 2提问于2014-02-02得票数 2
回答已采纳
我想从特定文件夹打开工作簿，从Excel工作表中列出的特定字符串开始。
例句:我有一个excel列表-
123456
567890
654321
文件名以以下数字开头：
123456_example_stringxxxx.xlsx
567890例stringxx.xlsx
654321-示例stringxxxx.xlsx
存储于: C:\Users\Desktop\Testr\Excel_Files
下面是我的代码，但它只打开第一个文件，我试图添加循环，但给出错误。
亚Macro1()
Dim wb As Workbook
Dim myPath As
浏览 2提问于2019-04-08得票数 0
回答已采纳
使用以下代码从工作簿中运行宏：
set app [::tcom::ref createobject Excel.Application]
[$app Workbooks] Open c:/MyMacroBook.xlsx
$app Run Macro1
但是，当不同模块中有多个同名宏时，如何调用？
例如Module1有Macro1，Module2有Macro1
尝试了以下操作，但没有成功：
set app [::tcom::ref createobject Excel.Application]
[$app Workbooks] Open c:/MyMacroBook.xlsx
$app Run
浏览 2提问于2015-04-21得票数 2
回答已采纳
这是我第一次尝试VBA，所以我为我的无知道歉。情况如下:我有一个由4列和629行组成的电子表格。当我试图做的是迭代每一行中的4个单元格，并检查一个空白单元格。如果有一行包含空白单元格，我希望将其从Sheet1中剪切并粘贴到Sheet2中的第一个可用行中。
(理想情况下，基于每个电子表格，列数和行数是动态的，但我不知道如何动态地遍历行和列)
Sub Macro1()
'
' Macro1 Macro
' Move lines containing empty cells to sheet 2
'
' Keyboard Shortcut: Ctrl+r
&#
浏览 5提问于2015-02-10得票数 2
回答已采纳
对VBscript和VBA来说很新.希望得到一些帮助，这是一个简单的答案.
我从VBscript调用Excel中的宏/函数。对函数的调用应该返回一个数字。在Excel中使用VBA调试，该函数看起来工作正常(在本例中，它显示值为1)，但当我调用宏/函数并试图回显它显示为“空”的VBscript中的值时。
如何将VBA的值返回到VBscript？
谢谢你的帮忙
VBscript代码示例：
Set excelOBJ = CreateObject("Excel.Application")
Set workbookOBJ = excelOBJ.Workbooks.Open("C:
浏览 2提问于2018-05-30得票数 3
回答已采纳
2回答
我正在使用调用函数来激活其他宏，但我不能完全确定VB如何读取此函数。(我在MS Excel 2010中使用此功能)
例如：
Sub main macro ()
blabla
blabla
Call Edit
Call Save
Call HistoryLog
End Sub
这段代码有一些If函数，并且在某个时刻会“调用Edit”，这里的宏"Sub Edit()“将被激活。但我需要这段代码来编辑数据，将数据保存到新文件中，并在其他Excel工作表中创建历史日志。
如果VBA完成了"Sub Edit()“部分，代码将如何继续？它会调用"Sub Save()“部分吗？
浏览 0提问于2015-10-30得票数 0
如何在VBA宏到达Excel的最后一行时停止它。下面是我写的代码。它可以很好地执行，但在到达excel电子表格的最后一行时会给出error# 1004。 Sub Macro1()
'
' Macro1 Macro
'
'
Range("a1048570").Select
Do
ActiveCell.Offset(1).Select
Loop
End Sub
浏览 52提问于2019-09-16得票数 1
I am getting error while running the below vb script to run the personal macro stored on an macro enabled workbook. `"Method 'Sheets' of object '_Global' failed"`
'Open an instance of Excel
Set objExcel=CreateObject("Excel.Application")
objExcel.Visib
浏览 3提问于2016-06-18得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
