excel - Excel 2003 中的 VBA 编程

Question

我是视觉基础语言的新手，希望在编写一些代码方面得到一些帮助。所以我正在尝试编写一个程序，从电子表格中导入数据并将当前数据转移过来。所以我有一个包含 3 张纸的电子表格文件。我会先删除第三张和最后一张表中的数据，然后将第二张表中的数据剪切并复制到第三张表中，然后将第一张表复制到第二张表中。然后提示用户选择要导入到第一个工作表的数据文件。我该怎么做呢？？？？谢谢

Answer 1

您可以通过执行简单地删除第三张表：

Application.DisplayAlerts = False
ActiveWorkBook.Sheets(3).Delete

然后插入一张新工作表并将其放在工作表 1 和 2 之前

ActiveWrokBook.Sheets.Add Before:=ActiveWorkBook.Sheets(1)
ActiveSheet.Name = "The New Name of your newly inserted sheet"

然后用您可能想要的任何数据填写工作表。你没有在你的问题中包含任何关于数据来源的细节，所以我想你已经知道了。

Answer 2

您可以使用访问每个单元格

Cells(row,column)

其中行和列都是数字。您可以像这样设置值

Cell(row,column) = "This is a new value"

您可以访问这样的值

aString = cells(row,column)

如果要将数据从一个工作表复制到另一个，此代码会将前 26 列和行从工作表 2 复制到工作表 3...

dim row as integer
dim column as integer

For column = 1 to 26
    For row = 1 to 26
        'Copy worksheet 3 value to worksheet 2's value
        Worksheets(3).cells(row,column)=Worksheets(2).cells(row,column)
        'Clear worksheet 2's values
        Worksheets(2).cells(row,column)=""
    Next
Next