代码之家 › 专栏 › 技术社区 › Irwin M. Fletcher

在excel vba中同时写入两个单元格

vba optimization excel

Irwin M. Fletcher · 技术社区 · 16 年前

对于我正在编写的VBA应用程序,我需要将相同的数据写入两个不同范围的单元格。我当然可以循环两次并写入数据,但我希望一次就能完成。

Sub WriteData()
    WriteOutDivision "Division1",10 
    WriteOutDivision "Division1",20 
End Sub

Private Sub WriteOutDivision(ByVal divisionName, ByVal rowNumber)
    Dim curSheet As Worksheet

    Set curSheet = Sheets("Company Scorecard")    

    With curSheet.Cells(rowNumber, 1)
         .value = divisionName
         .Font.Bold = True
         .InsertIndent 1
    End With
End Sub

我可以同时写入第10行第1列和第20行第1列吗?

2 回复 | 直到 16 年前

Wilhelm 16 年前

您可以定义非连续范围并更改该范围的属性。例如:

Dim curSheet As Worksheet
Dim rngSpecial As Range

Set curSheet = Sheets("Company Scorecard")
Set rngSpecial = curSheet.Range("A1,A3")
rngSpecial.Value = "Whatever"

Seth Moore 16 年前

推荐文章

Mr. W · 如何生成一个重复的整数,如二进制中的1001001001,时间复杂度为O(n)?

1 年前

giantjenga · 优化整数向量到二进制向量的转换

1 年前

Costinean Sebastian · 如何优化使用for循环处理大型数组的MATLAB脚本的执行时间?"

1 年前

Daniel Lobo · 使用约束进行优化

1 年前

Imyaf · 在什么条件下,在组装时对“if”和“if-else”进行比较?

1 年前

Sergio · python中大量数字的乘法

1 年前

Kiran Raj R · 为什么尽管使用了useMemo和useCallback,我的React组件却意外地重新渲染?

2 年前

Sergey Dev · 临时表与表变量

2 年前

JoReyner · 单字符元素的空间差异:列表<字符>与列表<字符串>

2 年前

John · 减少C中的内存消耗++

2 年前