www.5213.net > EXCEL VBA区域填充

EXCEL VBA区域填充

if 区域内容=a1 thenrange(“h17:n26”).font.color = 29range(“h17:n26”).interior.colorindex =6elserange(“h17:n26”).interior.colorindex =xlnoneend if

一句代码就行:Cells(6, 2).Resize(400 - 5, 200 - 1).FormulaR1C1 = "=表1!RC2*R5C"

在Excel中,利用填充功能可以快速地______. A.输入等差数列 B.输入等比数列 C.复制公式 D.复制单元格格式 A.输入等差数列 B.输入等比数列 C.复制公式 D.复制单元格格式 E.输入方程组 悬赏: 0 答案

A1:C4表示区域如下a1 B1 C1 a2 B2 C2A3 b3 C3 A4 B4 C4 在这个区域填数字A B C D1 1 2 3 =A1-B1+C1 (点此格右下角+字向下拉两格)2 5 6 7 3 9 10 12 4 4 6 8 就是你要实现的功能.

视图工具栏表格和边框,上面是有一个填充的按钮的(油漆桶);右击表格属性边框和底纹底纹,

假设某一区域是A1:D10,填充的内容是"特定内容",如下图:则VBA代码如下.Sub MyMacro() Dim Rng As Range, c As Range, n As Long Set Rng = Range("A1:D10") Set c = Rng.SpecialCells(xlCellTypeBlanks) n = c.Cells.Count c.Value = "特定内容" MsgBox "空白单元格的数量是" & n & "个"End Sub如下图,运行后会弹出一个对话框说明空白单元格数据,并填充特定内容,结果如下图:

第一步,开发工具->插入按钮->插入一个按钮.(开发工具选项卡需要在Excel左上角圆形按钮-Excel选项中勾选);第二步,插入按钮后会立即跳出一个框,你输入一个宏的名字,选择“新建”;第三步,输入下面的代码:(我的宏名字叫try,这个要换成你的宏的名字) Sub try() For i = 1 To 55 Range("A" & i).Interior.ColorIndex = i Next End Sub 第四步,点击该按钮.

使用复制、粘贴就可以,例如:Option ExplicitSub x() Range("a1").Copy Range("a3,b5,c6").Select ActiveSheet.PasteEnd Sub

问题要换一个思路,很好解决1.筛选A列,把所有空白行都筛选出来,比如,按你图中所示,有A13,A17等等在A13这个单元格中输入“=A12”,然后填充公式到其它空白单元格(就是右下角,然后下拉)2.用Office2010,有筛选当前单元格颜色功能,然后删除

因为截图不全,我这里先假设数据区为A1:F9, 填充区为H1:M9 代码如下:Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim arr1(1 To 54), arr2(1 To 54) Dim x, y, z As Integer Dim b, c Dim a As Variant z = 1 x = 1 y = 1 c =

网站地图

All rights reserved Powered by www.5213.net

copyright ©right 2010-2021。
www.5213.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com