我有两本工作簿,“旧的”和“新的”。两者都是相同的(都有相同的工作表集--工作表名称和所有--都有相同的公式)
我正试着把A页从“旧”导入到“新”。我这样做的方法是从“新”中删除工作表A,然后将整个工作表(即“旧”的工作表A)从“旧”复制到“新”
wkbOld.worksheets("Sheet A").Copy After:=wkbNew.Worksheets(nPos)
'nPos is the position of Sheet A in these workbooks
工作表A有引用工作表B中单元格的公式。我还有一个表Z,它有引用工作表A中单元格的公式。
导
我对VBA非常陌生,我想知道如何只复制工作表的白细胞,并将它们粘贴到相同的位置,但是粘贴到另一本工作簿上。
具体来说,我有两个带有多个工作表的工作簿,它们是相同的,但是源工作簿有一些空白单元格,而目标工作簿中这些单元格是空的。我希望将这些值从源白细胞传输到目标白细胞。如果可能的话,我想用"0“填充空白的白格。
我找到了一些代码,可以将所有颜色的单元格复制到另一个excel工作表中,但它们不会转移到另一个工作簿和确切的位置。
Sub CopyHighlightedTransactions()
Dim TransIDField As Range
Dim TransIDCell As Ra
我在Excel中使用的工作簿有一些受保护的单元格。我无法解锁它们。我需要将数据从一个被锁定的列传输到另一个也被锁定的列。我可以手动输入数据,但是工作簿将不允许我在受保护的列中复制/粘贴数据(无论是使用VBA还是正常方式)。下面是我尝试过的代码示例,没有任何结果。
如果不打开工作簿,这甚至是可能的吗?
示例1:
Sub Requote()
Dim JDsheet As Worksheet
Set JDsheet = ActiveWorkbook.ActiveSheet
JDsheet.Range("Q26:R41").Copy JDsheet.Range("S26:T
在一个更大的Excel应用程序中,(25张工作表,50个命令按钮,5000行代码,18个用户表单...大小为12 MB) ...我们以txt文件的形式从服务器加载表格,并使用标准过程将这些txt_files重新转换为excel数据。通过宏,我们在下载后删除所有的查询表和连接。
每件事都运行得又好又快,但是主页现在变得越来越慢了。即使打开工作簿也要花费越来越多的时间,而大小保持不变。
不知何故,我有一种感觉,从txt_files传输的数据的剩余部分没有被删除:
Dim ws As Worksheet
Dim qt As QueryTable
For Each ws In ThisW
我有一个UDF,可以在excel工作簿中的单元格中调用。我需要它在工作簿的末尾添加一个工作表。我在VBA脚本中多次使用sheets.add,但从未在单元格内调用的函数中使用过,这显然导致了一些问题。
该函数接受一个可选参数,用于添加工作表的工作簿的文件路径,如果用户保留此空白,则默认为活动工作簿。
下面是相关代码..。我做错了什么?
Public Function onesheet(Optional filepath As String)
Dim wb As Workbook
Dim ws As Worksheet
If filepath = "" Then
Set
我想将单元格的值和格式(文本颜色、字体大小、粗体等)从一个工作簿拉入/复制到另一个工作簿。
据我所知,使用标准的单元格引用是行不通的,你需要vba。
下面是一些在同一个工作表中将格式从a3复制到a10的vba代码:
Dim ping As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A3")) Is Nothing Then
If ping = False Then
Range("A3").Copy
Range(&
我在同一个工作簿中有两个工作表: Sheet1和Sheet2。两张纸具有相同的列数,31列和大约100行。
两个工作表具有相同的列值
示例:
colA colB colC
Date Prj Name Prj Status
我需要查看表1中的行是否与表2中的行匹配。整行,我已经查找了很多地方,它们都是单元格对单元格匹配,我需要匹配整个行。
例如:
查看sheet1中的第10行,并遍历工作表2中的所有行,如果匹配,则不执行任何操作。如果没有匹配项,则突出显示sheet1中的行,以指示在Sheet2中没有匹配项。
由于某些原因,我似乎找不到这样的例子。
我有一张有两根柱子的桌子,县和街。
我有另一张桌子,有许多列,其中有两张是县和街。在第二个表中,每行都已经填写了County,但我需要允许用户单击每行的Street单元格并选择(从下拉菜单中)一条街。下拉列表中的街道必须动态更改,以仅显示第一个表中包含在第二个表的特定行上的县中的街道。
表1:
County | Street
-------------------
County 1 | Street 1
County 1 | Street 2
County 1 | Street 3
County 2 | Street 4
County 2 | St
复制并粘贴单元格区域,但仅将最后一行之后的值复制并粘贴到新工作簿。我的复制工作表数据区域从o3开始,到r100。数据会发生变化。我想要开始粘贴的新工作簿从单元格m13开始。通过单击按钮,我想将新数据拉到一个空行下。 我研究了可以复制和粘贴到不同工作簿或复制到最后一行的代码。但不是两个都有。 Sub xtrnsf_to_other_wrkbook()
'Find the last used row in both sheets and copy and paste data below existing data.
Dim wsCopy As Worksheet
Dim wsDes
我的文档的结构可以从下面的图像中看到。我希望建立一个时间线图表从列A(不包括单元格A1,这是至关重要的图表,这个特定的单元格不包括),B和D。我正在寻找的方法,使图表动态使用VBA,以便由用户添加的新事件将自动显示在图表中,而不必手动更改图表的范围。
这个范围不需要立即/连续地改变--只要当点击按钮"Create a New Event View“后的宏时改变就行了。当用户有更多事件要添加到表中时,她只需将事件添加到表中,通过创建新表并删除旧表,她也将拥有更新后的图表。
问题是,如何做到这一点?
我已经编写了一些vba代码,用于从工作簿中选择一个范围并将其复制到另一个工作簿中的单元格。我的雇主希望这第二个工作簿是自动化的,这样就不会有手动输入的麻烦了。我需要将我的数字四舍五入到最接近的千位,例如,我拥有的数字是-2,218,387,我需要它读取-2,218,但目前它显示为-2,218,000。这完全脱离了自动工作簿,给我带来了很多问题。下面是复制范围的代码;
Public Sub InvoicedInstallments2()
Dim rng1 As range
Dim rng2 As range
Set rng1 = Workbooks("201209TB.xlsm
Dim worksheet1 As Worksheet
Set worksheet1 = ActiveSheet
Dim workbook2 As Workbook
Set workbook2 = Workbooks.Open(("F:\Project Sweep\Kim Checklist\" & worksheet1.Cells(19, 12) & "\Consumers.xlsx"))
Dim targetString As String
targetString = "index('"