[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表的主要内容,如果未能解决你的问题,请参考以下文章
MS Access VBA 修改 Excel 工作表而不写入 Drive