(20个以上的表格修改,,,今天一个一个改的要吐了)
如下图,
前两行为标题行 字体加粗加黑 前N列蓝色背景 N-M列如图所示 M-L列绿色背景
后面的行0-----L列 字体 大小 行高 边框固定
最后,,,,C币好商量
n = Val(InputBox("N=?"))
Range("A1:" & Chr(Asc("A") + n - 1) & "2").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range(Chr(Asc("A") + n) & "1:S2").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 12611584
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2:S2").Select
With Selection.Font
.Name = "SimHei"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
这只是一个演示,在这里你输入n,这个宏会自动把前n列设置为绿色,后面的设置为蓝色
而且还设置了字体为黑体。
如果你想进一步了解。采纳本回答,重新提问,提出你的需求,可以给你写一个更适合你的。
没看懂你什么意思,
模板的话自己可以做一个,然后保存单独的文件,以后要用调出来另存填内容就行了,如果只是跨文件改模式的话,全部选中,然后到需要修改模式的文件中,右键粘贴选项选倒数第二个(格式)就可以了,你把鼠标放在粘贴选项的图标上,上边几个选项有个显示“格式”,选那个就对了。
如果要改行高,点左边的序号,选中连续的要修改行高的行,然后右键选行高填写数字就修改了,列宽一样。
至于格式,左上角有格式刷,可以选中连续的表格填充,也可以单独选中一格,这样就复制格式了。
如果想复制内容不想修改格式,那么复制粘贴的时候点右下角的ctrl的一个框,点开选中值就可以
如果是整行或者整列修改格式,你可以从格式模板复制过来,插入到你需要修改的列旁边,然后从修改列选中右下角的+号往旁边模板拉过去,然后点开右下角+号,选不带格式填充,就可以了
wps我不是很清楚(开发工具里面找找,但是好像只有付费版才有),但是在excel里面,可以用工具-录制宏实现。
生成vba代码,然后照着套用
想了下,给你个跨文件复制的图吧,要不然也看不懂!oad/201805/19/1526726027_835686.png)
基本就是这样了,复制粘贴就可以把格式修改掉,不需要每个文件每个文件改,文件内处理也是一样的。看我前边给你的回复
(没看懂你什么意思,
模板的话自己可以做一个,然后保存单独的文件,以后要用调出来另存填内容就行了,如果只是跨文件改模式的话,全部选中,然后到需要修改模式的文件中,右键粘贴选项选倒数第二个(格式)就可以了,你把鼠标放在粘贴选项的图标上,上边几个选项有个显示“格式”,选那个就对了。
如果要改行高,点左边的序号,选中连续的要修改行高的行,然后右键选行高填写数字就修改了,列宽一样。
至于格式,左上角有格式刷,可以选中连续的表格填充,也可以单独选中一格,这样就复制格式了。
如果想复制内容不想修改格式,那么复制粘贴的时候点右下角的ctrl的一个框,点开选中值就可以
如果是整行或者整列修改格式,你可以从格式模板复制过来,插入到你需要修改的列旁边,然后从修改列选中右下角的+号往旁边模板拉过去,然后点开右下角+号,选不带格式填充,就可以了)
演示一下宏的威力