一招制胜 | WPS表格——VBA生成指定内容的经典用法(2)(基础篇)

⭐场景：使用VBA生成指定内容。

📢具体要求：使用VBA生成与标准相同的内容。

📌说明：本文属于基础知识的应用，建议高手大神可以直接跳过忽略。

步骤1：先打开WPS软件，新建一份表格，并输入相应的内容。如下图所示：我们来实际操作一下。

步骤2：点击【工具】，【开发工具】，【查看代码】，然后点击【插入】，【模块】，然后输入具体代码，如下所示：

Option Explicit

Sub test()

Dim x As Variant

Dim y As Variant

Dim i%, j%

Dim row As Integer

Dim col As Integer

x = Array(2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30)

row = 3

col = UBound(x) \ row + 1

ReDim y(1 To row, 1 To col)

For i = 1 To row

For j = 1 To col

y(i, j) = x((i - 1) * col + j - 1)

Next j

Next i

[a8:e10].Value = y

With Range("A8").Resize(UBound(y), UBound(y, 2))

.Borders.LineStyle = xlContinuous

.Font.Bold = True

.Font.Color = RGB(255, 0, 0)

End With

End Sub

然后点击【运行】，就可以得到所要的结果。如下所示：

以上就是今天要分享的内容，欢迎大家评论区留言，谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!