在 Excel 2003 中使用 VBA 编程

发布于 2024-11-23 15:19:43 字数 190 浏览 2 评论 0原文

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

橘亓 2024-11-30 15:19:43

您可以使用

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

You can access each cell by using

Cells(row,column)

Where the row and column are both numeric. You can set the values like this

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

You can access the values like this

aString = cells(row,column)

If you want to copy data from one worksheet to another, this code will copy the first twenty six columns and rows from worksheet 2 to worksheet 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

回复收藏 0 原文

喜你已久 2024-11-30 15:19:43

您可以通过执行以下命令简单地删除第三个工作表：

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"

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

You could simply delete the third sheet by executing:

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

Then insert a new sheet and place it before Sheet 1 and 2

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

Then fill the sheet with any data that you may want to. You did not include any details in your question about what is the source of the data, so I guess, you already know about that.

回复收藏 0 原文

~没有更多了~