1.原始數(shù)據(jù)表如下（名稱為：數(shù)據(jù)源），需要根據(jù)B列人員姓名拆分成每個(gè)人一個(gè)工作表。

2.點(diǎn)擊【開(kāi)發(fā)工具】-【Visual Basic】或者Alt+F11的快捷鍵進(jìn)入VBE編輯界面。

3.如下圖所示插入一個(gè)新的模塊。

4.如下圖，粘貼下列代碼在模塊中：

Sub CFGZB()

    Dim myRange As Variant

    Dim myArray

    Dim titleRange As Range

    Dim title As String

    Dim columnNum As Integer

    myRange = Application.InputBox(prompt:="請(qǐng)選擇標(biāo)題行：", Type:=8)

    myArray = WorksheetFunction.Transpose(myRange)

    Set titleRange = Application.InputBox(prompt:="請(qǐng)選擇拆分的表頭，必須是第一行，且為一個(gè)單元格，如：“姓名”", Type:=8)

    title = titleRange.Value

    columnNum = titleRange.Column

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    Dim i&, Myr&, Arr, num&

    Dim d, k

    For i = Sheets.Count To 1 Step -1

        If Sheets(i).Name <> "數(shù)據(jù)源" Then

            Sheets(i).Delete

        End If

    Next i

    Set d = CreateObject("Scripting.Dictionary")

    Myr = Worksheets("數(shù)據(jù)源").UsedRange.Rows.Count

    Arr = Worksheets("數(shù)據(jù)源").Range(Cells(2, columnNum), Cells(Myr, columnNum))

    For i = 1 To UBound(Arr)

        d(Arr(i, 1)) = ""

    Next

    k = d.keys

    For i = 0 To UBound(k)

        Set conn = CreateObject("adodb.connection")

        conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

        Sql = "select * from [數(shù)據(jù)源$] where " & title & " = '" & k(i) & "'"

        Worksheets.Add after:=Sheets(Sheets.Count)

        With ActiveSheet

            .Name = k(i)

            For num = 1 To UBound(myArray)

                .Cells(1, num) = myArray(num, 1)

            Next num

            .Range("A2").CopyFromRecordset conn.Execute(Sql)

        End With

        Sheets(1).Select

        Sheets(1).Cells.Select

        Selection.Copy

        Worksheets(Sheets.Count).Activate

        ActiveSheet.Cells.Select

        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

                               SkipBlanks:=False, Transpose:=False

        Application.CutCopyMode = False

    Next i

    conn.Close

    Set conn = Nothing

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

End Sub

5.如下圖所示，插入一個(gè)控件按鈕，并指定宏到剛才插入的模塊代碼。

6.點(diǎn)擊插入的按鈕控件，根據(jù)提示選擇標(biāo)題行和要拆分的列字段，本例選擇“姓名”字段拆分，當(dāng)然也可以選擇C列的“名稱”進(jìn)行拆分，看實(shí)際需求。

7.代碼運(yùn)行完畢后在工作簿后面會(huì)出現(xiàn)很多工作表，每個(gè)工作表都是單獨(dú)一個(gè)人的數(shù)據(jù)。具體如下圖所示：

注意：

1）原始數(shù)據(jù)表要從第一行開(kāi)始有數(shù)據(jù)，并且不能有合并單元格；

2）打開(kāi)工作簿時(shí)需要開(kāi)啟宏，否則將無(wú)法運(yùn)行代碼。

（本文內(nèi)容由百度知道網(wǎng)友茗童貢獻(xiàn)）

作為辦公室的職員，經(jīng)常會(huì)用到Excel做各種各樣的表格，有時(shí)掌握一些小技巧，會(huì)大大提高我們的工作效率。

1、比如下列Excel表格在A列的前面再插入3列，我們可以選擇A列，右鍵插入；這樣的話，要插入3次。那有沒(méi)有什么技巧，讓效率提高呢？

2、我們同時(shí)選擇A、B、C三列，右鍵插入。

3、這時(shí)神奇的結(jié)果出現(xiàn)了，下面表格姓名所在D列前插入了3列。也就是說(shuō)需要插入幾列，我們選幾列就可以插入相同的列數(shù)。

總結(jié)，插入的行的方法也是同樣的，插入幾行就選幾行。是不是掌握一個(gè)技巧，效率就提高了？快試試吧！

本百家號(hào)：時(shí)代新生分享工作、生活、技能方面的經(jīng)驗(yàn)，愿和您一起成長(zhǎng)。請(qǐng)多多收藏或關(guān)注哦！

有時(shí)候我們的Excel表格里只有一列數(shù)據(jù)，如果需要打印出來(lái)的話，就是下面這樣子的：

浪費(fèi)紙不說(shuō)，還很丑，這樣打印的表格你真的敢拿給老板看嗎？

對(duì)于這樣的數(shù)據(jù)，就需要把一列平均分配到多列，通常有兩種方法來(lái)實(shí)現(xiàn)，先來(lái)看看操作的方法：

一、操作法將一列數(shù)據(jù)變成多列

步驟1：先設(shè)計(jì)好需要拆分為幾列，然后將標(biāo)題手動(dòng)做好；

本例中計(jì)劃拆分8列。

步驟2：在c2單元格輸入a2，向右拉，Excel會(huì)自動(dòng)為我們填充到a9。

步驟3：在c3單元格輸入a10，向右拉；因?yàn)榈谝恍幸呀?jīng)到a9了，所以這一行就是a10開(kāi)始，一直填充到a17。

步驟4：選中兩行一起下拉，假設(shè)有160個(gè)數(shù)據(jù)，每行8個(gè)，那么下拉20行就夠了；

步驟5：按Ctrl +h組合鍵打開(kāi)查找和替換，查找內(nèi)容為a，替換內(nèi)容為=a，如下圖所示；

點(diǎn)擊全部替換，確定，完成操作。

步驟6：選擇性粘貼為值可刪除公式，數(shù)據(jù)居中加邊框，設(shè)置打印預(yù)覽，效果正是我們需要的；

結(jié)論：

1、如果不是每行8個(gè)，只需要調(diào)整第一次右拉的個(gè)數(shù)即可；

2、操作法的優(yōu)勢(shì)是容易上手，更適合新手使用；

3、但是操作法也有缺點(diǎn)，如果數(shù)據(jù)不斷增加，那么每次都要這樣操作也挺麻煩，因此還是需要了解一下公式的做法。

二、公式法將一列數(shù)據(jù)變成多列

還是用這個(gè)例子來(lái)說(shuō)明，通常將一列變成多列會(huì)用到OFFSET函數(shù)，我們先來(lái)看看公式是什么樣子的：

=OFFSET($A$1,MOD(COLUMN(A1)+7,8)+ROW(A1)*8-7,)

只需要將這個(gè)公式右拉下拉即可。

OFFSET這個(gè)函數(shù)根據(jù)偏移量來(lái)得到一個(gè)新的引用（單元格或者區(qū)域）一共有五個(gè)參數(shù)，格式為：

OFFSET(起始位置，行偏移量，列偏移量，高度，寬度)。

本例中起始位置為A1單元格，因?yàn)閿?shù)據(jù)源都在一列，并且都是單元格的引用，因此只需要確定行偏移量即可，可以看到公式里只用了兩個(gè)參數(shù)，第二參數(shù)是

MOD(COLUMN(A1)+7,8)+ROW(A1)*8-7。

單獨(dú)將這部分顯示出來(lái)的效果是這樣的：

說(shuō)通俗點(diǎn)，就是A1向下1行、2行……等等的單元格引用。

關(guān)于這部分需要一點(diǎn)數(shù)列構(gòu)造的基礎(chǔ)，不理解的話可以記住套路，想學(xué)習(xí)數(shù)列的構(gòu)造方法可以留言，我們會(huì)針對(duì)如何在公式中構(gòu)造數(shù)列來(lái)單獨(dú)講解一次。

結(jié)論：

1、如果不是每行8個(gè)，只需要將第二參數(shù)中的數(shù)字7、8做對(duì)應(yīng)調(diào)整，例如每行是6個(gè)數(shù)據(jù)的話，公式修改為：=OFFSET($A$1,MOD(COLUMN(A1)+5,6)+ROW(A1)*6-5,)

2、公式法需要使用者有一定的經(jīng)驗(yàn)，當(dāng)數(shù)據(jù)源發(fā)生變化時(shí)調(diào)整起來(lái)非常靈活；拓展性較強(qiáng)。

看到這里，估計(jì)有些伙伴會(huì)想：如果數(shù)據(jù)源不是一列，而是兩列或者三列，該怎么辦？

實(shí)際上，兩列或者三列的數(shù)據(jù)源在平時(shí)工作中更為常見(jiàn)，例如下面這種情況：

數(shù)據(jù)源有三列，我們希望變成九列（三組），這樣打印起來(lái)就非常合理。

對(duì)于這種問(wèn)題，使用方法1介紹的技巧來(lái)實(shí)現(xiàn)就比較困難了，還是利用OFFSET函數(shù)來(lái)處理。

三、對(duì)于多列數(shù)據(jù)源的處理方法

公式為：

=OFFSET($A$1,INT(COLUMN(C1)/3)+ROW(A1)*3-3,MOD(COLUMN(C1),3))

因?yàn)閿?shù)據(jù)源不在同一列了，所以行偏移量和列偏移量都要考慮，因此用到了三個(gè)參數(shù)，第一參數(shù)起始位置還是A1；

第二參數(shù)INT(COLUMN(C1)/3)+ROW(A1)*3-3代表引用數(shù)據(jù)相對(duì)于起始位置A1的行偏移量，單獨(dú)看的話效果為：

可以非常清楚的看到變化規(guī)律；

第三參數(shù)MOD(COLUMN(C1),3)代表引用數(shù)據(jù)相對(duì)于起始位置A1的列偏移量，單獨(dú)看的效果為：

對(duì)于這種規(guī)律的掌控能力，決定了OFFSET這個(gè)函數(shù)的使用水平，也正是這個(gè)原因使得OFFSET函數(shù)令很多初學(xué)者摸不著頭腦，學(xué)習(xí)起來(lái)始終不得要領(lǐng)。

今天我們的主要目的并不是學(xué)習(xí)OFFSET函數(shù)，只是學(xué)習(xí)這個(gè)函數(shù)的一個(gè)應(yīng)用，就本例來(lái)說(shuō)，記下公式的套路，能夠根據(jù)自己實(shí)際的問(wèn)題去修改公式后解決問(wèn)題就足夠了。

學(xué)好OFFSET的關(guān)鍵在于對(duì)第二和第三兩個(gè)參數(shù)的構(gòu)造。

比如上面的問(wèn)題，數(shù)據(jù)源是三列，希望變成四組（十二列），第二參數(shù)需要變成INT(COLUMN(C1)/3)+ROW(A1)*4-4

對(duì)箭頭所指的兩個(gè)地方進(jìn)行修改。

而第三參數(shù)=MOD(COLUMN(C1),3)則無(wú)需調(diào)整；以此類推，只要數(shù)據(jù)源的列數(shù)不變，只需要調(diào)整上面提到的兩個(gè)位置就行了。

當(dāng)數(shù)據(jù)源變成2列的時(shí)候，第二參數(shù)需要修改為INT(COLUMN(B1)/2)+ROW(A1)*3-3

還是修改兩個(gè)位置，C改為B，3改為2，

同時(shí)第三參數(shù)列偏移量也要修改：

=MOD(COLUMN(B1),2)

也是修改兩個(gè)地方，C改為B，3改為2。

以此類推，如果數(shù)據(jù)源變成4列，則分別修改B為D，2為4。

通過(guò)以上解釋，基本可以理解如何根據(jù)實(shí)際需要去調(diào)整公式的對(duì)應(yīng)內(nèi)容就可以了。要想徹底弄明白這里的奧妙，數(shù)列的構(gòu)造方法是繞不過(guò)去的一道坎。

讓我們一起加油學(xué)習(xí)Excel中那些有趣又實(shí)用的技能吧！

＊＊＊＊部落窩教育－excel單列拆分成多列＊＊＊＊

原創(chuàng)：老菜鳥(niǎo)/部落窩教育（未經(jīng)同意，請(qǐng)勿轉(zhuǎn)載）

我們?nèi)粘９ぷ髦惺褂肊xcel填寫文本時(shí)，有些時(shí)候不同的單元格需要填充的內(nèi)容是一樣的，不怎么用Excel的同學(xué)可能真的會(huì)一個(gè)一個(gè)單元格去敲文本，還用一種同學(xué)會(huì)選擇Ctrl+C和Ctrl+V來(lái)實(shí)現(xiàn)，今天我們分享另外兩種相對(duì)更為快速的方法：

1、下拉：將對(duì)應(yīng)文本填寫至一個(gè)單元格中，然后放在單元格的右下角，我們的鼠標(biāo)就變成了個(gè)＋號(hào)，然后點(diǎn)擊鼠標(biāo)左鍵下拉或者像右拖即可

以上的方法簡(jiǎn)單，但是有個(gè)很大的弊端，就是必須是連續(xù)的，如果是非連續(xù)非規(guī)則的，則不好填寫，這個(gè)時(shí)候就比較適用下述的方法了

2、Ctrl+enter快捷鍵：首先我們先選中我們所要填寫的文本的所在的所有單元格（如果連續(xù)直接選擇即可，如果不連續(xù)則可按著Ctrl鍵不連續(xù)選擇，當(dāng)然如果連續(xù)行列比較多，我們也可以選中第一個(gè)單元格后按shift鍵然后點(diǎn)最后一個(gè)單元格），選擇完畢后，我們直接寫所要填寫的文本后然后按下Ctrl+enter鍵即可，具體操作如下：

以上兩個(gè)分享雖然簡(jiǎn)單，但確實(shí)我們經(jīng)常用的，歡迎大家收藏或分享給更多同道中人，謝謝。

有的Excel表格列數(shù)很少，而行數(shù)卻很多。例如下圖，有3列，658行數(shù)據(jù)，在這種情況下直接打印，每張紙的信息量較少，打印效果不夠美觀，同時(shí)紙張得不到充分利用，造成極大的浪費(fèi)。

藥品價(jià)格數(shù)據(jù)來(lái)自網(wǎng)絡(luò)

直接打印效果

多排表制作打印效果

下面，小編將介紹多排表工具，完美打印多行Excel表格

運(yùn)行多排表工具

多排表工具是用Excel VBA開(kāi)發(fā)的加載宏，用來(lái)解決行數(shù)多而列數(shù)少表格的實(shí)用工具，既能使版面更加美觀、協(xié)調(diào)，又能節(jié)約大量紙張。使用時(shí)只需雙擊打開(kāi)即可

多排表工具.xla

運(yùn)行多排表工具：加載項(xiàng)→多排表工具→制作多排表→顯示如圖程序主界面

參數(shù)說(shuō)明

每頁(yè)排數(shù)：源表制作成多排表后，表內(nèi)所包含的排數(shù)

每排列數(shù)：每一排內(nèi)所包含的列數(shù)

每頁(yè)行數(shù)：源表制作成多排表后，每一頁(yè)所包含的行數(shù)

起始行號(hào)：源表表頭下面一行的行號(hào)

終止行號(hào)：源表最后一行的行號(hào)

如果多排表參數(shù)相對(duì)固定，可點(diǎn)擊保存參數(shù)，下次制作時(shí)點(diǎn)擊載入?yún)?shù)，就能使用原先保存的參數(shù)。

選項(xiàng)說(shuō)明

新增工作表：打鉤表示將工作表復(fù)制另一份副本，然后在另一份本上進(jìn)行多排表操作

生成鏈接多排表：打鉤表示源表內(nèi)容變化時(shí)，多排表內(nèi)容也隨之變化

清除公式：打鉤表示清除多排表內(nèi)的所有公式，并保留公式單元格的數(shù)值

每頁(yè)獨(dú)立橫表頭：打鉤表示多排表各頁(yè)都有獨(dú)立的表頭

頁(yè)末行標(biāo)注顏色：打鉤是為了當(dāng)多排表采用共享頭時(shí)，能直觀分清各頁(yè)之間的界限及方便對(duì)表進(jìn)行頁(yè)面設(shè)置

自動(dòng)修改表頭

如果選擇每頁(yè)獨(dú)立橫表頭并且多排表是2頁(yè)以上，需要修改表頭時(shí)，只需改動(dòng)第1頁(yè)的表頭，然后點(diǎn)擊自動(dòng)修改表頭，其余各頁(yè)的表頭便可自動(dòng)修改完成，內(nèi)容和格式與第1頁(yè)相同。

實(shí)例操作

以下圖顯示的工作表為例，此表有3列，起始行號(hào)為第2行，終止行號(hào)為第658行。制表前先設(shè)置打印頁(yè)邊距，確定每頁(yè)打印排數(shù)和每排列數(shù)。

注意：源表的第1列應(yīng)位于A列，A列不能為空列，否則必需重新調(diào)整位置。

打印預(yù)覽，確定每排行數(shù)

輸入?yún)?shù)

制作完成

打印預(yù)覽

如果要求每排表之間留有一定的間距，只需將第4列設(shè)置一定列寬，每排列數(shù)增加1即可

每排4列

以上就是多排表的介紹了，有需要的朋友可以私聊小編。

文章推薦

用Excel提取出生日期、性別、年齡及戶口所在地等信息

大家應(yīng)該都有用過(guò)Excel,當(dāng)你做到厭煩時(shí),有沒(méi)有試過(guò)按住往下箭頭鍵，純粹無(wú)聊地想看看這個(gè)表格會(huì)不會(huì)有盡頭？這似乎看起來(lái)完全沒(méi)盡頭的樣子啊，不過(guò)國(guó)外居然有網(wǎng)友真的嘗試了！

這名叫做Hunter Hobbs 的男生在 ，YouTube 進(jìn)行了「Excel Challenge」挑戰(zhàn)，內(nèi)容很簡(jiǎn)單：用手指一直按住箭頭鍵，看看Excel 表格到底有沒(méi)有盡頭，連他自己也指這個(gè)是「至今最白癡的挑戰(zhàn) 」。

他很快就知道 Excel 確實(shí)不簡(jiǎn)單，一小時(shí)、三小時(shí)、五小時(shí)過(guò)去，依然在「全速前進(jìn)」。這段期間他唯有靠吃東西、喝能量飲品、玩手機(jī)和玩具來(lái)打發(fā)時(shí)間。

結(jié)果在 9 小時(shí) 36 分 10 秒之后，Excel 終于停下來(lái)了?。≡瓉?lái) Excel 最底的一列是第 1048576 列?。⊥瓿蛇@個(gè)挑戰(zhàn)后 Hunter 表示十分累、極之肚餓，也勸大家不要嘗試。另外最多欄數(shù)也已經(jīng)有人找到，不過(guò)就少很多：16384 欄。實(shí)驗(yàn)?zāi)X洞的(!算是稍微解答了疑惑,但怎么有種空虛感啊…

我們做Excel表格的時(shí)候，有時(shí)會(huì)遇到兩列互換位置的情況，比如下表想把B列和C列互換位置。

有一種方法是：把B列先移動(dòng)到D列上騰出位置，然后把C列移到B列上，再幫D列移到C列上，從而實(shí)現(xiàn)B列和C列互換的目的，這種方法比較繁瑣，有沒(méi)有更簡(jiǎn)單的方法呢？這里教大家一個(gè)技巧。

1、首先選擇C列

2、光標(biāo)放在C和年齡之間線上時(shí)，光標(biāo)變成十字箭頭時(shí)，按下Shift鍵 ，同時(shí)拖動(dòng)鼠標(biāo)到A列和B列之間的豎線上，這時(shí)有一條豎的光標(biāo)虛線出現(xiàn)時(shí)松開(kāi)鼠標(biāo)。

3、最終就實(shí)現(xiàn)了B列和C列的互換位置

總結(jié)：注意要按下Shift鍵，并注意光標(biāo)的變化情況。

本百家號(hào)：時(shí)代新生分享工作、生活、技能方面的經(jīng)驗(yàn)，愿和您一起成長(zhǎng)。請(qǐng)多多收藏或關(guān)注哦！

1、一張Excel工作表，對(duì)于是office excel 2003及以下版本最大行數(shù)為65536行，最大列數(shù)256列；對(duì)于是office excel 2007及以上版本最大行數(shù)為1048576行，最大列數(shù)為16384列。

2、以下為office excel 2003和office excel 2007文檔最大行列圖。

1為office excel 2003文檔最大行列數(shù)

2為office excel 2007文檔最大行列數(shù)

（本文內(nèi)容由百度知道網(wǎng)友344169037貢獻(xiàn)）

第一步：打開(kāi)表格，選中需要分的列，點(diǎn)擊“數(shù)據(jù)”選擇“分列”

第二步：在跳出的彈窗中選擇“固定寬度”點(diǎn)擊“下一步”

第三步：在數(shù)據(jù)預(yù)覽下面點(diǎn)擊鼠標(biāo)選擇要分列的位置，拖拽到合適的位置后點(diǎn)擊“下一步”

第四步：這時(shí)候你會(huì)看到分列的預(yù)覽效果，如果沒(méi)問(wèn)題點(diǎn)擊“完成”。至此分列完成

知識(shí)點(diǎn)：有時(shí)候我們需要的分列的表格并不像上面截圖中那樣需要分裂的地方整齊，如果遇到這種情況，我們不能再選擇“固定寬度”而是要選擇“分隔符號(hào)”。但如果利用分割符號(hào)的話我們就需要在數(shù)據(jù)中鍵入分割符號(hào)(如圖)

鍵入分隔符號(hào)后，再點(diǎn)擊分列 選擇“分割符號(hào)”點(diǎn)擊“下一步” 選擇“其他”在其他選框后面輸入分隔符號(hào)再“點(diǎn)一步”即可完成

當(dāng)你做Excel表格做到意興闌珊時(shí)，有沒(méi)有試過(guò)按住向下箭頭鍵，純粹無(wú)聊地想看看這個(gè)表會(huì)不會(huì)有盡頭？相信你很快就已經(jīng)放棄了這個(gè)試驗(yàn)，因?yàn)樗坪鯖](méi)有盡頭的樣子。不過(guò)現(xiàn)在終于有人切切實(shí)實(shí)來(lái)做一次！

圖片來(lái)自youtube

這個(gè)叫Hunter Hobbs的男生在YouTube進(jìn)行了“Excel Challenge”挑戰(zhàn)，內(nèi)容很簡(jiǎn)單：用手指一直按住箭頭鍵看看Excel表格到底有沒(méi)有盡頭，如果有又在哪里。連他自己也指這個(gè)是“最至今白癡的挑戰(zhàn)”。

他很快就知道Excel確實(shí)不簡(jiǎn)單，一小時(shí)、三小時(shí)、五小時(shí)過(guò)去，依然在“全速前進(jìn)”。這段期間他唯有靠吃東西、喝能量飲品、玩手機(jī)和玩具來(lái)打發(fā)時(shí)間。結(jié)果在9小時(shí)36分之后，Excel終于停下來(lái)了：原來(lái)Excel最底的一列是第1048576列！

圖片來(lái)自youtube

完成這個(gè)挑戰(zhàn)后Hunter表示十分累、極之肚餓，也勸大家不要嘗試。另外最多欄數(shù)亦已經(jīng)有人找到，不過(guò)就少很多：16384欄。