我想在代码中使用工作表的名称来选择一个范围。我有37张,我不想写代码37次。 Sub relatorio()
Dim ws As Worksheet, GI As Integer, J As Integer
J = 0
For Each ws In ActiveWorkbook.Worksheets
J = J + 1
If ws.Name =
下面的代码为其他两个工作簿中的每个分页添加了一个新的工作表到一个摘要工作簿。我想将其他工作簿中的数据复制到摘要工作簿中的每个添加的工作表。所有数据都只能复制到sheet1。预先感谢您的任何帮助。 For n = 1 To Workbooks(file1name).Worksheets("Sheet1").HPageBreaks.Count
i = i + 1 'integer that
我想在工作簿中创建一个新工作表;名称基于“摘要”工作表的C列(从C4开始)中的信息。到目前为止,我有以下VBA,但是当它到达空白单元格时,它会停止。我需要它忽略空白单元格并继续。任何帮助? Sub CreateSheetsFromAListTEST()
Dim MyCell As Range, MyRange As Range
Set MyRange = Sheets("Summary")
我想从多个工作表中获取数据并粘贴到工作表1中,但我的代码无法正常工作。它不断地从表格“表格1”一遍又一遍地复制。有人知道我的代码有什么问题吗? 感谢 Option Explicit
Sub test()
Dim ws As Worksheet
Dim i As Integer
For Each ws In ThisWorkbook.Worksheets
If ws
我有3个带有不同数据的工作表的Workbook。现在我试图为每个工作表执行相同的代码(用1,3列的数据连接特定的单词,然后将3个单元格的范围从行转移到列) 下面的代码实际上并不需要我需要。简单地为最后一张纸做正确的处理,然后将这个结果复制到另一张纸上。但我需要每张纸的独特结果。 任何帮助,非常感谢! Option Explicit
Sub forEachWS()
Dim wb