excel VBA批量更改數(shù)據(jù)透視表數(shù)據(jù)字段值匯總方式

Excel VBA批量更改數(shù)據(jù)透視表數(shù)據(jù)字段值匯總方式

如果需要更改Excel數(shù)據(jù)透視表數(shù)值區(qū)域中字段的值匯總方式，在字段較多的情況下，手動逐一更改顯得有些繁瑣。用下面的VBA代碼可快速批量更改全部數(shù)據(jù)字段的值匯總方式。例如要將當(dāng)前工作表中第一個(gè)數(shù)據(jù)透視表的所有數(shù)據(jù)字段值匯總方式改為“求和”，方法如下：

按Alt+F11，打開VBA編輯器，在代碼窗口中粘貼下列代碼：

Sub SumDataFields()Dim ptField As PivotFieldFor Each ptField In ActiveSheet.PivotTables(1).DataFieldsWith ptField.Function = xlSum.Caption = "求和項(xiàng):" & .SourceNameEnd WithNextEnd Sub

關(guān)閉VBA編輯器，返回Excel工作表界面，按Alt+F8，打開“宏”對話框，選擇“SumDataFields”宏執(zhí)行即可。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。