66问答网
所有问题
当前搜索:
excel宏代码大全
如何将这段
Excel
的
宏代码
简化
答:
Operation:=xlNone, SkipBlanks:=False, Transpose:=FalseNextEnd Sub这里是按照连续的20个粘贴来写的
代码
,注意D列开始的20列已经包含复制的S列了,具体你要粘贴到哪些列,可以在循环值C上做个判断。要复制用inputbox函数输入,缺省值为S2:S48。数值型和文本型都可以用.value,也可以用=来判断,所以...
如何用
excel
的宏批量把横列变竖列,求
宏代码
和操作步骤例如下图_百度...
答:
arr=range("A1:E5")range("A1").resize(ubound(arr,2),ubound(arr))=application.transpose(arr)end sub 或者直接 sub test ()range("A1:E5")=application.transpose(range("A1:E5"))end sub 实际上你直接复制A1:E5,右键选择性粘贴,把转置选择上,确定。就完成了你的要求,不一定要用宏...
Excel
中如何编写下图中的宏
答:
Sub danjia()Dim i%r = Cells(Rows.Count, 2).End(xlUp).RowFor i = 2 To r Select Case Cells(i, 2) Case Is < 500 Cells(i, 3) = 500 * 0.95 Case Is < 600 Cells(i, 3) = 500 * 0.95 Case Is < 1000 Cells(i, 3) = 500 * 0.8 Case...
求
Excel
中该
宏
的
代码
!!!
答:
sub 求等级()for i=2 to 11 cj=cells(i,8)IF CJ>240 THEN CELLS(I,9)="A"ELSE IF CJ>=210 THEN CELLS(I,9)="B"ELSE CELLS(I,9)="C"END IF END IF next i end sub
EXCEL
格式设置的
宏代码
答:
录制完一个
宏
后就可以执行它了。1.4 执行宏 当执行一个宏时,
EXCEL
按照宏语句执行的情况就像VBA
代码
在对EXCEL进行“遥控”。但VBA的“遥控”不仅能使操作变得简便,还能使你获得一些使用EXCEL标准命令所无法实现的功能。而且,一旦熟悉了EXCEL的“遥控”,你都会奇怪自己在没有这些“遥控”的情况下,...
excel
vba 帮我写一下宏谢谢哈
答:
选中A列---F5定位---空值---输入 =A1---ctrl+enter 组合键---复制A列---选择性粘贴即可。非要宏也可以:Sub AAA()For I = 2 To [A65536].End(xlUp).Row If Range("A" & I) = "" Then Range("A" & I) = Range("A" & I - 1)End If Next End Sub ...
想写一个
EXCEL宏
,满足一下功能
答:
帮你写了个宏,执行时,完全满足你的要求。第三次改了一下,还有什么问题,欢迎提出:Sub Zh()Dim S, i As Integer, K(), E As String, Sw As Integer, U As String d = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")w = Array("", "万...
求助
excel
中如何写个宏完成下面的要求
答:
Sub 批量填表()Dim tempWork As Workbook, sjArr, fileName As String, pathname As String, endRow As LongendRow = [F65536].End(xlUp).RowsjArr = Range("D1:F" & endRow).Valuepathname = ThisWorkbook.PathOn Error Resume NextFor i = 2 To endRow fileName = pathname & "\" ...
EXCEL
替换
宏代码
答:
下列
代码
将B列等于3、4、5的单元格分别替换为“张三”、“李四”、“王五”。如果数字和对应的名字太多,可用两列辅助列将数字和人名一一对应,再循环用查找替换的方法。注意因循环次数太多,循环前要停止屏幕刷新,否则运行时间很长。Sub ABC()For Each Ra In Range("B1:B" & [B65536].End(xlUp...
求一个
EXCEL
简单宏
答:
0, 1) = "A"If Target.Value = "否" And Target.Offset(, -1) = "否" And Target.Offset(0, -2) = "否" Then Target.Offset(0, 1) = "B"End If End Sub 在事件里插入
代码
,此代码只是简单,写了下,一列二列有数,三列输数才起作用,若改变书写习惯,此代码还应修改下 ...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜