我想要创建一个宏,它能够根据标题单元格"G1“中的内容复制特定的单元格。然后,它应打开一个新工作表,并将这些单元格粘贴到此新工作表中的相同单元格中。
Sub CopyCells()
Select Case Range("G1").Value
Case "PITOT"
ActiveSheet.Range("D4,D5,D6,D7,D8,D9,D10,D11,I4,I5,I6,I7,I8").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Pas
我遇到了一个问题,即从哪里开始编写这段代码。 我有一个主数据( sheet1 )表和上传的表(表2)。 将需要做的事情流程化: Sheet1有两个特定的单词(树和木材),如果这两个单词在Sheet2中两个单元格之间匹配,那么从A2到R2将该行复制到该工作表的最后一行。 添加新的。 因此,我编写了一段代码,在F列中查找特定值,如果匹配,则会将该行复制并粘贴到其他表中。 我遇到了一个问题,当我试图从A:O列中压缩要复制的范围时会出错。 有没有人知道我的错误在哪里? Sub Copyrow()
Dim c As Range
Dim j As Integer
Dim Source As Works
我希望在打开的工作表中找到特定的单元格,并将右侧的数据3个单元格复制到主工作簿中(而不是刚刚打开的工作簿)。
下面的宏循环遍历txt文档中的所有文件,然后打开和关闭它们。在每个文件中都有一个名为ADA的单元格,我想将单元格3复制到右侧,但是ADA并不总是在同一个位置,所以我需要搜索它。例如,找到单元格ADA,并说它在该工作簿中的E6中,我需要将E6以及H6、I6和J6复制到运行宏的原始主工作簿中。
Sub GatherData()
Dim objFSO As Object
Dim objWB As Workbook
Dim strFN As String
Dim objTF As Object
我已经写了下面的代码,它在我的工作簿中创建了一个附加工作表的变量#,它基于我的“主”表列B中有多少行的名称。这个宏还复制了主表上B列中的各种名称,并将其粘贴到附加工作表上的单元格A7中。我遇到问题的最后一步是将以下单元格从主表复制到新创建的工作表中:
主控: C7、E7、F7、J7、R7、S7、U7、V7、W7、X7、Y7、AA7
创建的工作表: A62、D21、D29、D23、D25、D36、I21、I29、I23、I25、I36、D45
我们非常感谢您的任何想法。
Sub CreateAddtlSheets()
Dim ListSh As Worksheet, BaseSh As
我有一个宏,当范围内的任何单元格(S1:S 100)发生变化时,都应该触发这个宏。范围s1:s 100由另一个宏填充,并且值不断变化。
我有下面的代码,它可以很好地工作时,只有一个单元格在范围内被改变。如果同时发生多个单元格的变化,则无法工作。当一次多个单元格发生变化时,我会得到“无更改”的消息。
Sub Worksheet_Change(ByVal Target As Range)
Dim keyscells as Range
Set KeyCells = Range("S1:S100")
If Not Application.Inters
我已经编写了一小段VBA代码,在选择单元格后,单击工作表上的按钮即可运行该代码。我测试了代码,在随机单元格中输入了一些测试值,它似乎工作得很好。但是当我想在我的“真实”数据(我从另一个工作表粘贴到启用宏的工作表中的数据)上使用它时,什么也没有发生。我想知道这是不是因为我没有直接“输入”数据,但肯定有一种方法可以让代码在所有单元格上运行!然而,我在网上找不到任何有用的答案。
有人能帮助理解为什么我的代码在粘贴的单元格被选中时没有被触发吗?
非常感谢!
以下是我的代码:
Sub SelectCaseTest()
Dim feldname As String
Dim metadata As Str
我有一个电子表格,里面有一堆数据,所有的数据都在一列中,我希望提取出特定的数据。我在试着看一个“直到循环”是否会起作用。
当循环看到“目录*”作为单元格的一部分时,我试图让循环停止,例如G:\Example的目录。在此之前,循环应该检查单元格,如果没有以数字开头,则将该单元格复制到另一个工作表/列。
Sub Order()
iRow = 1
Do Until Cells(iRow, 1) = "Directory*"
If Cells(iRow, 1) <> NumberatBeginning Then
Cells(iRow, 1).Copy
我运行此宏在sheet1中的每个现有行之间插入一个空行,现在我需要将另一个工作表中的数据粘贴到这些空行中,复制的数据是在连续的行中。
有人能帮我编写一个代码来粘贴这些数据吗?
Sub InsertBlankRows()
Sheets("Sheet1").Select
'Step1: Declare your variables.
Dim MyRange As Range
Dim iCounter As Long
'Step 2: Define the target Range.
Set MyRange = Range(&
我试着寻找其他类似的问题和解决方案,但作为Excel初学者,我不太明白。
所以我有下面的宏:
Sub Worksheet_Change(ByVal Target As Range)
Dim wsNew As Worksheet
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
On Error Resume Next
If Not Intersect(Target, Range("B46:B99")) Is Nothing Then
ThisWorkbook.Sheets("LT
我需要能够编写一个复制子例程,它将读取输入工作表名称和输入单元格,并将此数据复制到特定的输出表和输出单元格。此子例程必须模块化,因为它将用于多个worksheets.It只将数据从输入表复制到输出表。这是我写的一个,但它不能工作。
Public Sub Copy_Input_Data_To_Output_Data( _
ByVal pv_str_input_worksheet_name As String, _
ByVal pv_str_output_worksheet_name As String, _
ByVal pv_str_input_cell_range As String,
我有上千行Excel工作表,如下所示。
我在循环中遇到了困难。我需要做的是从第一个单元格(即"002")开始,然后选择直到单元格不等于第一个单元格(在本例中,单元格在“007”之前)。然后复制(或剪切,因为下一个循环将从“007”开始)并将其粘贴到另一个工作簿。
我这里有我现有的密码。
Dim s_cell As Range
Dim c_cell As Range
Set s_cell = Range("AM2")
Do Until ActiveCell.Offset(1) <> s_cell
On Error Resume N
更新(01/10/2019);代码为:
function copyFormatting() {
var sheet = SpreadsheetApp.getActiveSpreadsheet();
var fromRangeGJ14 = sheet.getRange("GJ14");
var toRangeGJ14 = sheet.getRangeList(['N9','O10','P11']);
var backgroundsGJ14 = fromRangeGJ14.getBackgrounds(
我已经找过了,但是找不到我遇到的这个具体问题的答案。我正在尝试将一系列数据从一个工作表复制到另一个工作表,在此之前,我确定了要粘贴到的工作表上的单元格的值,该值与“从工作表复制”中的单元格相匹配。下面是我的代码。当我从“粘贴到”工作表(“每日摘要记录”)运行它时,该宏可以工作,但如果我从另一个工作表运行它,则该宏不起作用。我希望能够从工作簿中的任何工作表运行它,尤其是从工作表中粘贴。有关两个工作表的图像,请参阅附件。
‘每日分项’)
Sub ArchiveWeek()
Set thisMon = Worksheets("Daily Itemized").Range("
我对VBA非常陌生,我想知道如何只复制工作表的白细胞,并将它们粘贴到相同的位置,但是粘贴到另一本工作簿上。
具体来说,我有两个带有多个工作表的工作簿,它们是相同的,但是源工作簿有一些空白单元格,而目标工作簿中这些单元格是空的。我希望将这些值从源白细胞传输到目标白细胞。如果可能的话,我想用"0“填充空白的白格。
我找到了一些代码,可以将所有颜色的单元格复制到另一个excel工作表中,但它们不会转移到另一个工作簿和确切的位置。
Sub CopyHighlightedTransactions()
Dim TransIDField As Range
Dim TransIDCell As Ra
我有两本工作簿,“旧的”和“新的”。两者都是相同的(都有相同的工作表集--工作表名称和所有--都有相同的公式)
我正试着把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中单元格的公式。
导