时间戳

首页 > 解决方案 > 如何在 VBA 中定义下一个循环的范围

excel - 如何在 VBA 中定义下一个循环的范围

问题描述

我是一个新手，我正在尝试学习 VBA（对不起，英语有任何错误，我不是母语人士）。我正在尝试解决以下作业：“创建一个程序，在 Excel 中输出 11 到 20 的乘法表值，如下所示：”

乘法表

这是我的代码：

Sub einmaleins()
Dim x As Integer, y As Integer
For x = 11 To 20
For y = 11 To 20
Cells(x, y) = x * y
Next
Next
End Sub

它可以工作，但会将桌子从 K11 放到 S20。我需要它来输入我尝试过的从 A1 到 J10 的值

*Range("A1:J10").FormulaR1C1 = "=ROW(RC)*COLUMN(RC)"*

但它不起作用。

非常感谢帮助

标签： excelvbafor-looprange

解决方案

实际上，您的公式方法更好，因为可以避免循环。

Range("A1:J10").FormulaR1C1 = "=(ROW(RC)+10)*(COLUMN(RC)+10)"

推荐阅读