Question

I m试图对每个工作表格进行校正,并将A栏的100个浏览点与投入参数的价值挂钩。我希望每张表格都打上一个投入箱,其数值与这一投入相等,但正在出现的情况是,第1号工作表格正在获得最后的投入,并且一栏的所有数值。 a 空白,但表格除外。 1. 导言

Dim wkbkorigin As Workbook
Set wkbkorigin = Workbooks.Open("C:ookB.xls")

For Each ThisWorkSheet In wkbkorigin.Worksheets  
    Subject = InputBox("Enter the  Subject  field for " & ThisWorkSheet.Name & ":")
    For i = 1 To 100  
        Range("A2").Cells(i, 1) = Subject
    Next
Next

Answer 1

您不妨修改:

Range("A2").Cells(i, 1) = Subject

:

ThisWorkSheet.Range("A2").Cells(i, 1) = Subject

<代码>Range将自发适用于 Current worksheet(根据您的症状,这是第一份工作表格),因此,你所做的一切只是重复了该工作桌上的囚室。

因此,它们最终达到了最后价值,而其他表格则仍然空白。

Answer 2

此外,不需要休息——简单使用:

ThisWorkSheet.Range("A2:A100").Value = Subject

较快

友情链接