创建循环以在find函数之后复制/粘贴vba循环
在VBA中，可以使用循环结构来重复执行一段代码。根据题目描述，我们需要在find函数之后创建一个循环，并将其复制/粘贴。
在VBA中，常用的循环结构有For循环、Do While循环和Do Until循环。根据具体需求，我们可以选择合适的循环结构。
以下是一个示例代码，展示了如何在find函数之后创建一个循环，并将其复制/粘贴：
Sub CopyPasteLoop()
' 执行find函数
' ...
' 创建循环
Do While condition
' 复制/粘贴操作
' ...
' 更新循环条件
' ...
Loop
End Sub在上述代码中，我们使用了Do While循环来实现循环操作。在循环体内部，可以编写复制/粘贴的代码，并根据具体需求更新循环条件。
相关·内容
如何使用VBA将数据从一个文件复制到另一个文件？当我运行这段代码时，我得到一个错误-“运行时错误'1004‘：应用程序定义或对象定义的错误”。我正在使用Excel 2010
Sub nextfile()
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("MAIN Pivot Table.xlsx
浏览 1提问于2014-01-09得票数 0
有时，您需要在Excel中复制图表，并使用VBA将其粘贴到PowerPoint演示文稿中。当您想要自动化报表时，这是很有用的。
问题：假设您没有将图形转换为图像，并且取决于您要粘贴的图形的大小和复杂性，在VBA尝试继续该过程之前，该图形没有时间粘贴。这是烦人的，当你想要操纵图形后，它已被粘贴(例如，定位在幻灯片上)。实际上是你试图在幻灯片上移动图表..。它还没有作为PowerPoint形状“存在”。
这个问题很烦人，在我看来实际上是个错误。除了John的这个之外，我还没有看到这个问题的强有力的解决方案。他的答案很可能是正确的(并且在线程上被指定为这样)，但不幸的是，我无法在我的实现中使它工作。
浏览 2提问于2020-02-08得票数 0
回答已采纳
我有一个列A与‘空单元格’或‘数字存储为文本’。我需要得到“空单元格”或“数字值”来创建一个图形。
我通常做的是使用=IF(A1<>"";cnum(A1);"")创建第二列。但是图形显示"“为0，所以我需要去掉"”值。复制，然后在Excel中的过去评估不做这项工作。
我经常动态地重新创建一个小的VBA代码来实现这一点(For each cell in Range() IF cell.value ="" THEN cell.ClearContents...)。效果很好。但使用VBA似乎有点过分。
有时，我只需复制范围，将
浏览 3提问于2015-10-01得票数 3
回答已采纳
没有经验的堆栈溢出用户，请随时指点我到一个不同的论坛或子论坛，如果需要。
我创建了以下VBA (然后还在线查看了其他代码示例，它们似乎都遵循相同的逻辑)。我在调试窗口中进行测试，并准确地看到预期的结果(多行字符串)。但是，当我在工作表单元格中键入公式时，会得到一个#值错误。
函数拼写正确(我实际上是从公式auto-complete)Excel x64 v2108，Win10 x64本地安装中选择的
你知道为什么这个公式不被填充到细胞里吗？
Function ConcatCells()
'just to be safe, clear the string
Con
浏览 2提问于2021-11-08得票数 0
回答已采纳
我正在编写一个vba脚本。复制一个当前excel文件(带有格式)的内容。循环遍历当前文件夹中的所有其他excel文件，c.将新复制的工作表添加到excel文件中。
由于某种原因，我的代码不起作用。有谁能帮我一下vba脚本的新手
Sub Macro7()
Dim wbf As Workbook
Dim myPath As String
Dim myFile As String
Dim currentFile As String
Dim mtExtension As String
myPath = Application.ActiveWo
浏览 1提问于2017-05-26得票数 0
回答已采纳
我有一个表，它的值基于每月和第一列的产品，如下所示(例如"sheet1")。此表具有条件格式，用于根据目标突出显示单元格颜色(红色/黄色/绿色)。因此，我只想使用特定的月份(当前月份-5月)列，并希望VBA检查，如果该列中的任何单元格是红色，请选择整行并将其复制到另一个工作表中，例如"Sheet2“和标题。
Product = Target Feb Mar Apr May
Wood >= 5 10 10 10 10
wood >= 5 28 28 28 28
Tree >=
浏览 2提问于2018-05-16得票数 0
回答已采纳
3回答
嗯，我知道，VBA宏和非VBA宏在访问方面是有区别的。
创建和编辑VBA-宏与Word/Excel没有太大区别:您有一个文本字段，可以在其中编写代码：
但是非VBA宏的编辑呢？对我来说，它看起来像是“用鼠标点击编程”(对我来说，对于Access中的新人来说，这看起来很奇怪)：
问题：
在访问“使用鼠标”时编辑非VBA宏是一种常见而正确的方法吗？或者，也许还有另一种方式，如第一张图片所示？
如果我有一个非VBA宏，我如何将它从一个数据库复制到另一个数据库(或者，堆栈溢出)？
浏览 0提问于2018-03-31得票数 1
回答已采纳
我试图在PowerPoint中创建一行重复对象，每个对象的运动路径略短于下一个，如下所示：
我知道您不能从零开始在VBA中添加路径动画，所以我使用VBA复制和粘贴对象及其运动路径，然后编辑运动路径。
这是我的VBA代码：()
' Copy the shape in slide 2 which has a custom motion path aleady
ActivePresentation.Slides(2).Shapes(3).Copy
Dim x As Integer
' For loop - create 5 duplicates
浏览 5提问于2017-08-15得票数 0
回答已采纳
当我使用VBA复制形状时，我遇到了这个奇怪的现象，我不知道如何处理它：
当使用常规的.Copy函数复制单元格和形状时，形状在高度方向上会被轻微压缩。他们的位置似乎或多或少是对的。
我使用VBA 7.0和Excel 2010。
我真心希望有人能在这方面帮助我。我花了相当多的时间寻找关于这个主题的信息！
代码：
Sub RenderOverview()
' Clear Worksheet
Sheets("ModelOverzicht").Cells.Clear
Sheets("ModelOverzicht").DrawingObjects.Delete
浏览 2提问于2014-01-30得票数 1
1回答
我想使用VBA将下表从Word文件导入到Excel文件中。
下面是我的word表的示例。
结果会将表值分组到excel文件中的同一列。
我使用下面的脚本将word表格转换为excel。
Sub ImportWordTable()
Dim wdDoc As Object
Dim wdFileName As Variant
Dim tableNo As Integer 'table number in Word
Dim iRow As Long 'row index in Excel
Dim iCol As Integer 'column index in
浏览 13提问于2020-05-16得票数 0
回答已采纳
我正在尝试搜索Excel电子表格中的文本。我正在查看位于微软文档https://docs.microsoft.com/en-us/office/vba/api/excel.range.find中的Range.Find方法的示例。 这些示例仅说明如何搜索一个值。是否可以使用Range.Find方法搜索多个值，或者必须将多个Range.Find方法放入嵌套的for循环或其他VBA结构中？或者使用Pandas结构会更有效率？我想要一些关于如何实现这一点的专家建议。 提前谢谢。
浏览 523提问于2021-11-09得票数 0
回答已采纳
我在Excel中更新了几个列。
column1,column2
updated1, updated2
updated3, updated3
在“VBA即时”窗口中，是否可以运行update语句将更改传播回SQL？或者任何其他简单的方式也受欢迎。
浏览 12提问于2015-04-08得票数 0
1回答
上周，我创建了这个宏，允许我创建数据记录。它将数据放置在日期旁边，如果我们仍然在同一日期(如果没有移到当前日期)，则将其设置为替换日期。这是代码：
Sub Record()
'Get all the dates
'Selecting the data to copy
Range("C23:O23").Select
Selection.Copy
'Find the last used row in Column B
Dim LastRow As Range
With ActiveSheet
Set LastRow = .Cells(.Rows.
浏览 1提问于2018-07-02得票数 0
回答已采纳
1回答
我在列A的第1行、第2行、第3行和第4行中有数据范围:Q.我正在尝试创建一个VBA，因此它做了以下工作：
复制行1A:q，根据单元格O12拖动和粘贴n行数，从单元格A17开始。
复制行2A:Q，根据单元格O12拖动和粘贴n行数，但粘贴范围应在已粘贴的第1行区域之后。
重复第3排和第4排。
因此，对于单元格O12状态4，我应该为每一行拖放16行4。
任何帮助都将不胜感激。
Sub CopyJournalLines()
' Works out last cell with data in columns A or B, copys row 2 and paste within that
浏览 3提问于2015-07-24得票数 0
回答已采纳
Sub VBA_Read_External_Workbook()
'''''Define Object for Target Workbook
Dim Target_Workbook As Workbook
Dim Source_Workbook As Workbook
Dim Target_Path As String
'''''Assign the Workbook File Name along with its Path
'''''Change path of th
浏览 2提问于2017-06-02得票数 1
我是通过VBA进行新编程的；目前，我已经为单个行-列创建了单个宏；在本例中，我为行"2“和列"M2:BF2”创建了一个宏，但我需要这个宏命令来遍历接下来的320行，而我不知道该如何操作。这是我的命令： enter image description here 如果有任何建议或指导，我将不胜感激。 对每个人都是最好的 豪尔赫
浏览 24提问于2020-04-14得票数 0
我不太擅长vba，所以请原谅我这个业余的问题。我打开了一个包含3个选项卡的活动工作簿。我想构建一个宏来打开另一个工作簿，并将我的三个选项卡中的数据粘贴到第二个工作簿的三个选项卡中。
这是我的代码，它一直在粘贴特殊行断开。
Sub NewVersion_Click()
Dim y As Workbook
ThisWorkbook.Sheets("Fact Find").Range("A5:I283").Copy
Set y = Workbooks.Open("location")
y.Worksheets("Fact Find"
浏览 0提问于2017-11-01得票数 0
我目前正在寻找一种方法来搜索"B“栏中的短语"term”，然后在新列"I“中添加一些文本”新文本“。我对VBA很陌生，我目前的代码没有添加任何文本：
Sub addclm()
Dim row As Long
Dim column As Long
Dim strsearch As String
Dim rfind As Range
Dim sfirstaddress As String
strsearch = "term"
row = Sheet4.Range("I4").row
column = Sheet4.Range(&#
浏览 1提问于2018-06-14得票数 0
回答已采纳
我有一个Excel工作表，其中包含从工作簿中的另一个工作表中提取的数据创建的一组图表。在每个月开始时，当我将上个月的数据添加到数据工作表中时，我将所有数据都移到一列上，使得上个月的数据现在在O列中，上个月的数据总是在P列中。问题是，我希望带有图表的工作表总是绘制当前的“上个月”(总是P栏)，但它“聪明”到可以重新配置图表，以继续绘制它所绘制的数据(即前一个“上个月”)，而该图表现在在O栏中。
具体来说，我想要改变(例如)
=SERIES("Visits",Data!$D$4:$O$4,Data!$D$4:$O$4,1)
至
=SERIES("Visits",Da
浏览 4提问于2011-10-10得票数 2
2回答
我在Access .mdb文件中使用VBA编写了大量代码，包含表单并连接到Access数据库。我需要将这些代码迁移到VB6应用程序中。重写所有这些都是不切实际的，因为有太多了。
是否有一种方法可以从带有按钮的VB6表单中调用VBA文件，从而允许用户通过简单地单击相应的按钮来启动每个VBA模块？VB6中的哪一行代码允许启动VBA文件？
更新
最后，我成功地找到了如何使用以下指令从我的VB6表单中启动VBA文件：
Call Shell("C:\Program Files (x86)\Microsoft Office\OFFICE11\MSACCESS.EXE C:\presto.mdb /
浏览 5提问于2015-10-07得票数 3
回答已采纳
如何更新Word文档中的Excel组件而不打开该组件？我可以在Word文档中添加一些VBA代码来实现这一点吗？理想情况下，每次打开Word文档时都可以完成更新。
浏览 0提问于2014-11-21得票数 0
我有一个文件，我使用动态复制和粘贴vba，一切正常，但当过滤输出只有1行时，该过程粘贴一行，在粘贴目标范围内复制它(从第1行到末尾)。只有当过滤后的输出为一行时，才会发生这种情况。
下面是我的复制代码：
Select Filtered data Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
If Selection.Columns(1).SpecialCells(xlCellTypeVis
浏览 1提问于2015-08-13得票数 0
1回答
通过下拉列表切换工作表
、、、
我是VBA的新手，正在尝试通过主“索引”页面上的下拉列表来创建一种在工作簿中导航工作表的方法。由于工作簿中有多个工作表，并且有多个人在使用，因此我希望下拉列表自动填充，以节省搜索列表的需要。然后我想要打开选定的工作表(可能使用宏按钮，或者甚至通过按enter (如果是一个选项))。 到目前为止，我有以下宏来填充下拉列表(取自另一个站点)： Private Sub ComboBox1_DropButtonClick()
Dim xSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Applicat
浏览 20提问于2020-08-18得票数 0
回答已采纳
所以我有一个excel工作簿，它有一个很好的shaperange对象的全局映射。通过一些非常简单的代码，我可以将国家/地区集合的颜色、分组和解组更改为数组，etc...and它工作得很好。然而，我想把它带到Access中。
因此，我可以手动将所有形状复制并粘贴到access窗体中，但随后它们会变成图片，并且我无法更改国家/地区(形状对象)的颜色，以使地图像在excel中那样以交互方式工作。
所以我想我知道如何在access中使用excel函数，以及如何在access中打开excel。有没有一种方法可以从excel中复制对象(我知道每次都要复制的文件名和形状名)，并将其带回access以粘贴到窗
浏览 2提问于2010-03-27得票数 3
回答已采纳
下面的VBA代码在包含特定文本的word文档中选择文本框。如何以编程方式将每个文本框移动到另一个页面(例如第一页)，以保持其相对于页面的位置。原始文本框的位置与其所在的页面完全一致。
Sub searchTexboxes()
'
' searchTexboxes Macro
'
'
Dim shp As Shape
Dim sTemp As String
Dim nrTextboxes As Integer
nrTextboxes = 0
For Each shp In ActiveDocument.Shapes
If shp.Type = msoT
浏览 2提问于2019-09-20得票数 1
回答已采纳
我在excel表格中有数据，在列中有行标题和各自的值。我希望以表格的形式复制，并与一些文本一起粘贴在outlook电子邮件正文中。找不到vba的表格代码。建议
下面是代码片段：
strEmailSubject = ""
StrEmailText = ""
strCc = ""
strContactEmail = ""
With olNewEmail
.To = strContactEmail
'.CC = strCc
.body = StrEmailText
.Subject = strEmailSubject
.dis
浏览 0提问于2015-06-13得票数 0
1回答
这是我在word vba宏中的代码
Public sub as2uni()
Dim rdcm As Range
Set rdcm = ActiveDocument.Range
With rdcm.Find
.MatchCase = True
rdcm.Select
.Text = "0079"
.Replacement.Text = "\U0BB2"
.Execute , , , , , , , , , , wdRepl
End with
End s
浏览 4提问于2015-10-22得票数 0
2回答
下面是我对第1页和第2页中的大量数据所做的工作：
将Sheet1.Columnname(基于多个比较)与sheet2中的所有匹配行进行比较。高亮显示差异并粘贴到结果表。
在结果表中，对于在column1中具有相同值的所有行，检查其他字段的字体颜色。如果是红色，请将column1复制到新的结果表。
我受够了(1)。对于(2)，我使用findall函数从()得到column1中所有重复项的子集。代码正在工作，但非常慢。我还有别的办法可以做吗？
我本可以使用数组来完成的，但是我无法使用数组来触摸字体颜色。我尝试了Application.Calculation = xlCalculat
浏览 0提问于2017-02-15得票数 0
我已经在Excel中创建了一个遵循以下VBA代码的用户窗体：
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
If MsgBox("Form is not complete. Continue?", vbQuestion + vbYesNo) <> vbYes Then
Exit Sub
End If
End If
ActiveCell = TextBox1.Value
ActiveCell.Offset(20, 0).Select
Call
浏览 1提问于2017-12-07得票数 1
3回答
转换奇数日期格式
、、
我有一个巨大的数据表，其中一列包含与该特定条目相关的日期。除5月外的所有月份，这些日期的格式为：'dd.mm.yyyy hh.mm‘，例如'30.04.2013 10:42’。这些日期被excel理解为日期，这使得表格直接对它们进行排序。
然而，对于五月，它是'02- May -2013 08:21:03'，这是Excel无法理解的。有没有办法在Excel或VBA中解决这个问题？(我尝试过“设置单元格格式”，但没有成功)
提前感谢您的任何有用的意见！
浏览 5提问于2013-08-21得票数 0
2回答
我正在寻找一个函数，以便在Excel中有条件地连接一系列单元格。这一功能
Function ConcatenateIf(CriteriaRange As Range, Condition As Variant, ConcatenateRange As Range, Optional Separator As String = ",") As Variant
Dim xResult As String
On Error Resume Next
If CriteriaRange.Count <> ConcatenateRange.Count Then
Conc
浏览 4提问于2017-07-05得票数 0
回答已采纳
1回答
有谁能帮我解决以下问题吗？)
问题:我有下面的代码，可以在A列的预算表中找到textA。在d4:d15中查找具有相同textA和粘贴的工作表。然而，它是通过D列粘贴，而不是仅仅在这个范围内。
帮助:使vba只复制来自预算表的B:M行范围，并粘贴到d4:d15列中。
Sheets("Budget").Select
Columns("A:A").Select
On Error Resume Next
Selection.Find(What:="phh budget", After:=ActiveCell, LookIn:= _
xlFormulas,
浏览 3提问于2017-09-20得票数 0
回答已采纳
2回答
我试图找到一个值"PLGDY"，从该行复制数据，在找到的行上插入一个新行，将数据粘贴到新行中，将值"PLGDY“替换为"PLGDN”。
我编写了一个宏，它不是将数据复制到新行中，而是粘贴到右侧的单元格中。它还将两行中的值更改为"PLGDN“。
我想使用For Next循环，因为我有很多值可以更改。是否可以检查要更改的值的数量？我想用这个号码作为计数器。
Sub Find_and_Change()
'
'Find a "PLGDY" and set an active cell
Cells.Find(What:="
浏览 8提问于2014-10-30得票数 0
2回答
我是VBA新手……我想将一行从Sheet2复制到Sheet1，如果该行中的第一个单元格表示X，然后对满足此条件的所有行执行此操作。我在If条件中有一个错误...我不知道如何修复它。
Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
Worksheets("Sheet2").Activate
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.
浏览 2提问于2014-01-12得票数 7
回答已采纳
我知道这是人们在遍历范围时尝试删除行时经常遇到的问题，但在这里并非如此。我不是删除行，而是剪切整行并粘贴到另一个工作表中，留下一个空白行。问题是For Each ..。循环的作用就像我删除了行，并跳过循环中的下一个单元格。下面是代码的一小段。
last_row = 100
Set search_rng = n_ws.Range(n_ws.Range("L2"), n_ws.Cells(last_row, 12))
For Each cell In search_rng
find_amt = cell.Value * -1
Set s_
浏览 0提问于2020-02-13得票数 0
我在VBA中使用Open file方法打开xlsx。但是我有一个问题，那就是xslx。文件有错误。 当我打开xlsx时。文件中，消息框的内容是：“我们发现".xlsx文件”中的某些内容有问题。是否要尽可能多地恢复?如果您信任此工作簿的来源，请单击“是”。“ 如果单击yes，将出现以下消息框："Removed Records: Merge cells from /xl/worksheets/sheet1.xml part“ 因此，由于xlsx中的错误。文件中，我无法使用"Workbook.Open(application.GetOpenFilename)“在我的vba代
浏览 263提问于2020-04-03得票数 0
我发现了一些VBA代码，它们的工作方式与我想要的完全一致。但是，我不知道如何在表后面添加一些额外的文本。
Sub esendtable()
Dim outlook As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object
Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)
With newEmail
.To = ""
浏览 10提问于2022-11-10得票数 0
我有问题
我测试和发布的代码(见下文)不包括发送电子邮件。在OP添加到他的问题之后，我添加了.Send部分，但是我得到的行为非常奇怪。如果我在发送之前放置一个断点，并且执行Sub，则会创建一封电子邮件，其中包含正确的信息(包括粘贴的Excel Range)。然后我继续执行，并正确地发送电子邮件。但是，如果我同时运行整个Sub，没有断点，电子邮件发送时没有粘贴Excel Range。
这样做的原因是什么，解决办法是什么？
我尝试过注释/取消注释最后两行(Set ... = Nothing)，但这没有帮助。
相关问题：
参考代码(基于Ron的典型代码，请参阅和)：
Sub SendEmai
浏览 3提问于2014-01-07得票数 4
回答已采纳
6回答
我试图在VBA中将Excel列截断到一定长度。
然而，LEN函数似乎并不将\n and \r视为单独的字符。
还有其他函数可以给出精确的字符串长度吗？
例如，我试图在单元格中获取以下字符串的长度。(a\r\nb\r\nc\r\nd)
a
b
c
d
得到长度的代码。
print len( replace(replace(sheet1.Cells(1,1).value, chr(10), "-" ), chr(13), "#"))
输出：
7
字符串的实际长度是10。
编辑
我终于想出来了。它与空白字符无关，而与其他一些特殊的Unicode字符有关。
VBA LE
浏览 19提问于2016-06-27得票数 1
回答已采纳
1回答
在Sheet1中，我有几个不同度量(列)的数据点的行。我手动创建了第二个工作表，它对第一列数据执行一些分析。如何创建宏或VBA代码，以便为Sheet1中的每一列创建一个新工作表，并执行与我手动创建的分析完全相同的分析？谢谢。
浏览 0提问于2011-09-01得票数 0
回答已采纳
我目前在使用某些Excel VBA代码时遇到困难，我的问题发生在向工作簿添加工作表时循环通过一些代码。
Dim DFWB As Workbook 'Dailyfeed Workbook
Dim NewWb As Workbook 'New Data sheet for all linked Ip addresess
Dim DataWb As Workbook
Dim NewWbs As Worksheet
Dim rtable As Range, Flist As Worksheet
Set DFWB = ThisWorkbook
浏览 0提问于2013-06-27得票数 0
我有一个用于每月状态会议的演示模板。模板的标题幻灯片包含月份，您可能会知道模板的用户进入会议月份的位置:)
还有其他有标题的幻灯片:月份完成计划，月份的缺点
当我在标题幻灯片上输入一个月的幻灯片时，有没有一种方法将它填充到幻灯片上？我正在寻找一个非vba的答案，如果可能，但如果这是唯一的方式，我愿意学习vba的powerpoint。
浏览 3提问于2014-12-11得票数 0
1回答
我正在使用VBA在excel中创建一个动态的工作表目录，我想动态地调整它的大小。如果添加了新数据，它确实会调整大小，但如果删除数据，则不会调整大小。这是我的代码：
Sub update_directory()
Application.ScreenUpdating = False
Range("Directory").Select
Selection.ClearContents
Range("AA1").Select
ActiveCell.Formula2R1C1 = "=TRANSPOSE(SheetNames)"
Sheet1.Calculat
浏览 8提问于2022-07-17得票数 0
回答已采纳
我使用VBA，主要用于Excel。
为了优化计算时间，我使用了像Dim myArray()这样的数组
是否存在用于VBA的任何数组类、对象或库，其中包含以下函数：
myArray.sort
myArray.sortFromColumn(columnNumber) 'For 2D array...
myArray.join(anotherArray)
myArray.split(index)
myArray.filter(key)
myArray.numFilter(>8)
...
我已经找到了许多代码来实现每个操作(特别是排序)，但是没有任何代码可以在一个“包”中获得最多。
谢谢
浏览 7提问于2014-11-26得票数 0
我想将word文档中的图片复制到Excel的单元格中，但每次尝试粘贴图片时都会得到一个"\“。
有人能帮帮我吗？
有没有一种在VBA中执行此操作的简单方法？
我使用selection在两个章节之间进行搜索( selection可以很好地工作，但副本不能。)
我的代码如下：
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Docu
浏览 1提问于2021-03-18得票数 0
我需要从excell表中复制数据，其中每个参与者有3个原始数据，一个是2004年，一个是2005年，另一个是2006年，在列中是01,02...12个月
我希望每个参与者只有一个raw，并且我希望在列中列出每年的月份，如04_01 04_02 ... 04_12 05_01 05_02...05_12。
我试着使用pivot，但由于数据组织方式的原因，它不起作用。我读了一些关于vba编程的文章，但我现在不知道它是什么，我也不知道从哪里开始，你有什么建议吗？
提前谢谢。
(很抱歉，我不能发布图片，因为我没有10个名气:( )
浏览 2提问于2015-01-15得票数 0
我试图使用下面找到的VBA代码遍历文件夹：
我只是简单地复制和添加了我自己的宏。虽然它没有给出一个错误。代码不起作用。当我运行宏时，它根本没有反应。
我有一些500+文件，我需要将宏应用到其中一些文件实际上是嵌套在文件夹中的。
我真的很感激有人能帮我创建一个工作的宏。在堆栈交换中找到的--要么出现错误，要么根本不响应。
如果有一个宏启用工作版本的代码提交这里-这将是一个很大的帮助。
我很清楚，在文件夹代码中有VBA excel循环，也有递归的--当我测试这些解决方案时，它们不适合我。这并不是说他们根本不工作。
将我指向其他线程并不能帮助我读取所有的线程。我花了时间对他们进行测试。
这就是我需要
浏览 1提问于2015-09-09得票数 0
2回答
我有一个excel计算，它在10列中完成一次迭代(每组11列的空间为+1列)。我的意图是使用VBA多次复制这个范围的11列(理想情况是350或更多)。每次复制/粘贴范围时，计算的迭代都会引用上一组的“级联”效果。
我拼凑了一些完成这个任务的VBA代码，但是处理起来非常慢，而且很难判断计算在迭代方案的更大部分是否正常工作。我添加了一个状态栏来跟踪进度，并且我注意到，在大约100次迭代之后，操作就会停止。我目前将计数设置为100个迭代，因为这似乎是它挣扎的地方。
在询问之前，我已经在这里四处寻找帮助，并发现了Application.ScreenUpdating = False技巧，但这似乎解决不了
浏览 2提问于2020-08-27得票数 1
回答已采纳
我是VBA的新手，我知道如何在目标单元格的位置已知的情况下将单元格值从一个工作簿复制到另一个工作簿。
我需要的是让用户选择工作表中的单个单元格，当单击附加到宏的命令按钮时，数据将从固定位置复制到该单元格。
如果有任何建议我将不胜感激。
我需要打开一个新的工作簿并复制单元格/命名区域，然后返回到原始工作簿并粘贴到用户选择的位置。如果是range，则将选定的单元格作为起始单元格。
浏览 3提问于2012-05-30得票数 0
1回答
我有一个已经存在的报告，它运行于一个特定的查询。这份报告运行得很完美。我和其中一位客户的报告有问题，在那里我必须改变一小部分信息。这要求我运行一些VBA代码并将所有信息插入到临时表中。但是，我希望运行相同的报告，而不是使用查询来使用tempInfo表。有办法让我这么做吗？我可以创建另一个报告，但是第一个报告有点复杂--所以如果我能够复制和粘贴至少这个组，对总计进行排序，以便正确显示我的数据，它将节省大量时间。ANy建议？
浏览 2提问于2016-03-14得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
