Question

EXCEL如何将一个工作表内容分成3个工作表?

如下所示sheet1工作表：（类似EXCEL的表格）
A B C D E F G H I J
1 WO Qty LINE WO Qyt0 qty1 qty2 qyt3 MO QTY4
2 M1 15 M1 10 100 150 100 400 YY5 33
3 M2 15 M1 10 200 120 400 200
4 M1 10 300 130 500 300 PP1 150
5 M8 15 M1 10 302 130 500 300
6 M1 10 555 130 212 300
7 M1 10 44 110 500 214 KK2 200
8 M1 10 300 130 500 300
分成3个工作表，
ABCD 4列为一个工作表，不包含AB列空白行；
CDEFGH 6列为一个工作表；
CEIJ 4列为一个工作表，不包含IJ列空白行；

如果用VB程序编写，做个生成按钮也可以
或者直接在sheet2 sheet3 sheet4 3个工作表做公式也可以；

希望高手们指教指教了，我实在是搞不定！邮箱：gemeng986@163.com

分很多，完成追加100分-------

Answer 1

在sheet2的a1中输入以下公式：

=INDEX(Sheet1!A:A,SMALL(IF(ISBLANK(Sheet1!$A:$A),9999999,ROW(Sheet1!$A:$A)),ROW(A1)))

然后ctrl+shift+enter 完成输入

向右拉到D列

向下拉到你想到的位置

 

sheet4中，就把我图上高亮的地方改成I列或是J 列即可，蓝圈中的列改成C，然后右拉，下拉

 

sheet3简单，我就不说了。

追问

你有163的邮箱吗？ 公司电脑就连你们发的附件都下载不了。
用公式也有缺陷，我目的就是把数据放Sheet1里，然后分成3个sheet后打印出来，用公式还要清楚那些N/A或#REF!这些不匹配符号。

我把我做的附件发给你看下，里面的VBA是我改的别人的，但是有缺陷。
能否帮忙看看？

追答

要清除N/A 或 #REF 也可以，就公式加上if 就行了 = if(iserr(前面那个公式),"",前面那个公式)

你把VBA的原码直接发上来吧，我不太用邮箱的。

Answer 2

原表为SHEET1
在SHEET2的A1中输入或复制粘贴此公式
=Sheet1!A1&""
右拉填充到D1，
选中A1:D1，下拉填充

在SHEET3的A1中输入或复制粘贴此公式
=Sheet1!C1&""
右拉填充到F1，
选中A1:F1，下拉填充

在SHEET3的A1、B1、C1、D1中分别输入或复制粘贴此公式
=Sheet1!C1&""
=Sheet1!E1&""
=Sheet1!I1&""
=Sheet1!J1&""
右拉填充到D1，
选中A1:D1，下拉填充

Answer 3

当前表当sheet1
abcd的当sheet2、cdefgh的当sheet3、ceij的当sheet4

在sheet2的A1单元格输入公式=,然后回到sheet1单击a1，然后向右拉4列公式。然后再选中这4列（横向选择），下拉即可。

在sheet3里面，a1里面输入=,然后回到sheet1单击c1,向右拉公式6个格子。使之cdefgh都弄过来数据。然后再选中这一行，下拉公式。

ceij这个要单独去单击了。
a1=sheet1!c1
b1=sheet1!e1
c1=sheet1!i1
d1=sheet1!j1
然后下拉公式。

追问

这个我知道，关键等于过来我需要“不包含AB或IJ列空白行”
而不是我又要重新去删选空白行！

Answer 4

直接复制粘贴不好吗？

追问

因为量很大，实际上是有很多列；因为sheet1数据会不断变化；

每天重复做很多次，这样格式规定好可以减少很多工作量。