VBA代码在工作簿中的所有工作表中使用for循环来选择变量内容？ [英] VBA code to use a for loop across all sheets in a workbook to select the variable contents?

问题描述

我有一个包含多个工作表的工作簿，在每个工作表中我需要将相同的行内容复制到我的主列表中。我有一个代码可以将每个工作表中的一个单元格值（即N7）提供给我的主页，

问题是，在某些工作表中，单元格值进入高手将是一个单元格，在其他表格中，它将是两个或更多单元格，如（N7 TO N11）

我该如何得到这个在我的主人？我当前的代码是，

  昏暗  DataFile   as    字符串  
工作簿 。 打开文件名 ：=  范围 （ " T3"  ）。 价值
 DataFile   =   ActiveWorkbook  。 名称
 ThisWorkbook  。 激活
范围 （ " C4"  ）。 选择  
  对于 我  =     1    要 工作簿 （  DataFile  ）。 工作表 。 数
 ActiveCell  。 值  =  工作簿 （  DataFile  ）。 工作表 （  i  ）。 范围 （ " N7"  ）。 价值
 ActiveCell  。 偏移量 （  1  ，    0  ）。 选择  
  下一步 我  

请帮我解决这个问题。

解决方案

你需要添加一行（正好在下面） ;对于i = 1到..."）：

  工作簿 （  DataFile  ）。 工作表 （  i  ）。激活  

I have a workbook with multiple sheets, in each sheet I need to copy the same row contents to my master list. I have a code to get one cell value (which is N7) in each sheet to my master,

The problem is, in some sheets, the cell value to be get into master will be one cell , In other sheets, it will be two or more cells like (N7 TO N11)

How should I get this in to my master? My current code is,

Dim DataFile As String
Workbooks.Open Filename:=Range("T3").Value
DataFile = ActiveWorkbook.Name
ThisWorkbook.Activate
Range("C4").Select
For i = 1 To Workbooks(DataFile).Worksheets.Count
ActiveCell.Value = Workbooks(DataFile).Worksheets(i).Range("N7").Value
ActiveCell.Offset(1, 0).Select
Next i

Please help me on this.

解决方案

You need to add a line (just under "for i = 1 to ..."):

Workbooks(DataFile).Worksheets(i).Activate

这篇关于VBA代码在工作簿中的所有工作表中使用for循环来选择变量内容？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！