Programming in VBA in Excel 2003

Question

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

Answer 1

您可以使用

访问每个单元格

Cells(row,column)

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

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

您可以像这样访问这些值

aString = cells(row,column)

如果要将数据从一个工作表复制到另一个工作表，此代码将从工作表2复制前26列和行到工作表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

Answer 2

只需执行以下命令即可删除第三个表:

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"

然后用你想要的任何数据填充这张表。关于数据的来源，你没有详细说明，我想你应该已经知道了。