[VBA]简单的修改Excel表

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了[VBA]简单的修改Excel表相关的知识,希望对你有一定的参考价值。

 1 Option Explicit
 2 Option Base 1
 3 
 4 Sub FillSheet()
 5     Dim i As Long
 6     Dim j As Long
 7     Dim col As Long
 8     Dim row As Long
 9     Dim arr() As Long
10     row = Application.InputBox(prompt:="input row:", Type:=2)
11     col = Application.InputBox(prompt:="input column:", Type:=2)
12     ReDim arr(row, col)
13     For i = 1 To row
14         For j = 1 To col
15             arr(i, j) = (i * j) Mod 20
16         Next
17     Next
18     
19     需要选中
20     Worksheets("Sheet3").Activate
21     Dim rng As Variant
22     Set rng = Sheets(3).Range(Cells(1, 1), Cells(row, col))
23     Set rng = Sheets(2).Range("A1:Z26")
24     rng.Value = arr
25 End Sub

初试VBA,主要注意修改前需要激活对应的sheet,否则报错!

以上是关于[VBA]简单的修改Excel表的主要内容,如果未能解决你的问题,请参考以下文章

从 vba 代码调用 Excel 的工作表函数

vb6.0改Excel的工作表名

MS Access VBA 修改 Excel 工作表而不写入 Drive

EXCEL VBA 窗体显示期间不执行下面代码,也不影响操作工作表?

VBA宏运行速度为啥比Excel自带函数慢

VBA excel,工作表副本但超链接已更改