3取值赋值与数组
Excel VBA知识分享单元格的交互取值与赋值
'1单元格直接赋值
'2单元格取值赋值
'3单元格取值赋值与数组
'4单元格FOR循环赋值
'5单元格FOR循环嵌套赋值
'6单元格FOR循环嵌套判断赋值
'7扩展练习输出等腰三角形
Sub test()
’Excel VBA知识分享取值与赋值
'1单元格直接赋值
'-------------------------------------
Cells(1, 1) = 11
Cells(1, 2) = 12
Cells(1, 3) = 13
Cells(2, 1) = 21
Range("A3") = "A3"
Range("B3") = "B3"
Range("B4") = "B4"
Range("D:D") = "D"
Range("5:5") = 55
Range("E7:F9") = "E7F9"
Range("E10:F11") = "E10F11"
'2单元格取值赋值
'-------------------------------------
get_11 = Cells(1, 1)
get_12 = Cells(1, 2)
Cells(1, 5) = get_11 + get_12
get_A3 = Range("A3")
Range("E3") = get_A3
'3单元格取值赋值与数组
'-------------------------------------
get_arr = Range("E7:F11")
Range("E17:F21") = get_arr
End Sub
Sub test_f()
'4单元格FOR循环赋值
'-------------------------------------
For i = 1 To 100
Cells(i, 7) = i
Range("h" & i) = i
Next
End Sub
Sub test_ff()
'5单元格FOR循环嵌套赋值
'-------------------------------------
For i = 1 To 100
For ii = 1 To 100
Cells(i, ii) = i & "X" & ii
Next
Next
End Sub
Sub test_fff()
'6单元格FOR循环嵌套判断赋值
'-------------------------------------
For i = 1 To 100
For ii = 1 To 100
If ii <= i Then
Cells(i, ii) = i & "X" & ii & "=" & i * ii
End If
Next
Next
End Sub
Sub test_tt()
'7扩展练习输出等腰三角形
'-------------------------------------
m = 50
For i = 1 To 50
For ii = 1 To 100
If ii >= m And ii < (i + m + (50 - m)) Then
Cells(i, ii) = "▲"
Else
Cells(i, ii) = ""
End If
Next
m = m - 1
Next
End Sub
公开笔记对他人可见,有机会被管理员评为“优质笔记”
{{ noteEditor.content.length }}/2000
讲师收到你的提问会尽快为你解答。若选择公开提问,可以获得更多学员的帮助。