[已解决]再问一个贻笑大方的问题。

wshnyy

哇，你是大师！   你能不能把0～6的 sheet名字用 sheet1中的range（B10：B：16）即

Cardiology
Emergency
Mental Health / Psychiatry
Orthopedics
Pediatric Emergency
Surgery 的前10个字母代替？

太谢谢了

wshnyy

另外怎样才能让这新建的6个sheet的表的格式保持一致？ 比如行高都是30？

wshnyy

另外， 能不能把 值为零的列，不要在新表中出现？

爱疯

比如：Mental Health / Psychiatry
这包含了非法字符，不能命名为工作表，要怎么办？本来是准备按11楼的意思命名的。

wshnyy

爱疯 发表于 2012-11-20 16:33
比如：Mental Health / Psychiatry
这包含了非法字符，不能命名为工作表，要怎么办？本来是准备按11楼的意 ...

Mental Health / Psychiatry 可以用前6位，即mental 代替

wshnyy

我主要想把那些在新表中没有值的列去掉。 用advancedfilter可以去掉吗？到底该怎样写呀？老师

爱疯

没有值的列去掉，又不明白了。。。
如果可以，列举结果的样子，能用技巧操作完成，就尽量用技巧

wshnyy

爱疯 发表于 2012-11-20 17:31
没有值的列去掉，又不明白了。。。
如果可以，列举结果的样子，能用技巧操作完成，就尽量用技巧

例子如下：

爱老师，你的VBA程序把 sheet1中的表，分别粘贴到 0，1，2，3...

我的想法是，只贴有值的列。举例说明如 0 sheet上，不要有黄色标志的那两列。

你看有没有什么好办法？

谢谢


sheet1

SERVICE	Advice Provided	Direct Admit	Emergency	Emergency -  Specialty to see	Other	Referred to  Clinic	Grand Total
Cardiology	97		6	2	6		111
Emergency		1		34			249
Mental Health  / Psychiatry	19	4	5	15	2	2	47
Orthopedics	3	1		1		1	8
Pediatric  Emergency	14	1		3			52
Surgery			4	60		2	92
Grand Total	171	109		115	8	7	646

0sheet

SERVICE	Advice Provided	Direct Admit	Emergency	Emergency -  Specialty to see	Other	Referred to  Clinic	Grand Total
Cardiology	97		6	2	6		111

爱疯

1. 
   
2. Sub test2()
   
3.     Dim sh As Worksheet
   
4.     Dim rng As Range
   
5.     Application.ScreenUpdating = False
   
6.     For Each sh In Worksheets
   
7.         If sh.Name <> Sheets(1).Name Then
   
8.             sh.Select
   
9.             Set rng = Range("a1").CurrentRegion
   
10.             If Application.WorksheetFunction.CountBlank(rng) > 0 Then
    
11.                 rng.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
    
12.             End If
    
13.         End If
    
14.     Next
    
15.     Sheets(1).Select
    
16. End Sub
    

复制代码

筛选3b.rar (26.7 KB, 下载次数: 4)

2012-11-22 16:06 上传

点击文件名下载附件

wshnyy

爱疯 发表于 2012-11-22 16:06

爱老师。你太厉害了！！！佩服佩服。

可惜，我离你太远。要是在一个地方的话。马上去请你吃饭。