<em>excel宏</em>中怎样选择下一列单元格-excel 宏 选中的单元格,excel如

Sub test()
Dim Rng As Range
Set Rng = Selection
Rng.Resize(1, 8).Select
End Sub
这是选择当前选复中单元制格百同行的八个单元格，包括度原来的当前单元格
如果不包括原来的单元格
代码修改如下
Sub test()
Dim Rng As Range
Set Rng = Selection
Rng.offset(,1).Resize(1, 8).Select
End Sub
如果是按当问前单元格向右第8个单元格
Sub test()
Dim Rng As Range
Set Rng = Selection
Rng.offset(, 8).Select
End Sub
如果是固定答H列，代码如下
Sub test()
Dim i%
i = Selection.Row
Cells(i, 8).Select
End Sub
或直接用
Sub test()
Cells(Selection.Row, 8).Select
End Sub

1、打开Excel表格，按“Alt+F11”打开“Microsoft Visual Basic”点击“插入”→“模块”。

　　2、复制下列代码粘贴到zd“模块”中，粘贴完成后关闭“模块窗口”和“Microsoft Visual Basic”窗口。
　　Sub 宏1()
　　For i = 1 To 50
　　Selection.EntireRow.Insert
　　ActiveCell.Offset(2, 0).Range("A1").Select
　　Next i

　　3、回到版Excel表格中点击菜单栏“工具”→“宏(M)”→“宏(M)”

　　4、选择“宏1”在点击“执行”即可。

　　5、用“宏”权执行后的Excel表格已在内容中插入多列行。
Cells(4, 6).Offset(0, 1).Interior.Color = Cells(4, 6).Interior.Color
上面VBA执行后则将（4，6）单元格的颜色向右偏移一格填充（4，6）颜色
将（0，1）换成（e79fa5e98193e78988e69d833630，-1）则是向左偏移填充颜色

执行下面的宏代码

Sub a()
For i = 2 To 100 '假设有99行要涂色的数据
If Cells(i, 3) <> "" Then
Cells(i, 3).Offset(0, 1).Interior.Color = Cells(i, 3).Interior.Color '向右的一个单元格填充颜色
Cells(i, 3).Offset(0, 2).Interior.Color = Cells(i, 3).Interior.Color '向右的第二个单元格填充颜色
Cells(i, 3).Offset(0, -1).Interior.Color = Cells(i, 3).Interior.Color '向左的一个单元格填充颜色
Cells(i, 3).Offset(0, -2).Interior.Color = Cells(i, 3).Interior.Color '向左的第二个单元格填充颜色
End If
Next
End Sub

VBA中ActiveCell就是当前选中的单元格

如下步骤可实现要求：

1.插入按钮

2.选择新建

3.写入代码

4.点击按钮，填充当前单元格内容