Excel VBA知识分享单元格的交互取值与赋值

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