《SAP?BPC項(xiàng)目中,快速修改大體量表單的故事》
有些需求的體量有時(shí)會(huì)讓你嚇一跳,但是冷靜下來分析,你會(huì)發(fā)現(xiàn)快速解決的辦法,這個(gè)故事可以講一講。
用戶需求
原表(500家公司,1000行數(shù)據(jù)):
希望改成下面的樣子(500家公司,1500行數(shù)據(jù)):
每個(gè)公司原來有兩行(年度列為2012和2013),現(xiàn)在需要插入一行(年度列邢家的行值為2011)。
解決方案:總共兩大步,關(guān)鍵是第一步。
1.插入行
一行一行插入,不是我的風(fēng)格。
這里,我采用了EXCEL的功能,實(shí)現(xiàn)快速插入行。
1.1 在表格右側(cè)的空列,年度列值為2013的行,寫入值1(總共寫500個(gè)1,這個(gè)用EXCEL的自動(dòng)功能就可以實(shí)現(xiàn),這里不再啰嗦)。
1.2 ,選中這1000個(gè)單元格(包括沒有寫值的單元格)
1.3? 按組合鍵Ctrl+G,彈出界面:
1.4 點(diǎn)擊界面中的“定位條件”按鈕(紅色方框標(biāo)注的地方),彈出界面:
1.5 選中界面中的“空值”(紅色方框標(biāo)注的地方),點(diǎn)擊“確定”按鈕,結(jié)果如下(所有的沒有填寫1的單元格被選中):
1.6 在被選中的第一個(gè)單元格上,鼠標(biāo)右鍵,彈出菜單,選“插入”:
彈出界面:
1.7 選中插入“整行”(紅色方框標(biāo)注的地方),結(jié)果如下:
行是快速插入了,但是公司列的合并單元格,得一個(gè)個(gè)合并,每個(gè)合并1次,500次合并,咱不這么干。
1.8 把原表復(fù)制一份,在表格右側(cè)空列插入1列值,同前,然后組合鍵Ctrl+G,彈出界面:
選中“定位條件”,彈出界面:
1.9 選擇“常量”,確定,結(jié)果如下:
新插入列的所有值為1的,都被選中了,在第一個(gè)1上鼠標(biāo)右鍵,菜單中選擇“插入”:
結(jié)果如下:
這個(gè)結(jié)果中,公司列的單元格符合我們的要求,復(fù)制到前面的表中,公司列合并單元格的問題得以解決:
2.復(fù)制公式
2.1 方法1:在年度列的第一行,填寫需要的值(這個(gè)跟第2、3行一行,是通過公式獲取的值),然后選中這3行,復(fù)制到后面的1497行(1500-3=1497),年度列公式完成
2.1 方法2:通過宏實(shí)現(xiàn),宏代碼如下(僅供參考,需要根據(jù)實(shí)際修改):
Sub 隔N行復(fù)制(FRow As Long, TRow As Long, ST As Long, FCol As String, TCol As String)
Application.CutCopyMode = False
For i = FRow To TRow Step ST
Range(FCol & i + 1 & ":" & TCol & i + 1).Select '選中區(qū)域
Selection.Copy
Range(FCol & i).Select
ActiveSheet.Paste ? ?'粘貼
Next
Range(FCol & TRow).Select
End Sub
Public Sub 復(fù)制表1()
隔N行復(fù)制 39, 851, 3, "R", "AF" ?'復(fù)制公式
隔N行復(fù)制 39, 851, 3, "K", "N" ?'復(fù)制配置
MsgBox ("Sir,Mission Completed!")
End Sub
(正文結(jié)束)
附1:關(guān)于本公眾號(hào)
微信公眾號(hào)ID:SAP-BPC
微信公眾號(hào)名稱:BPC123
歡迎您的關(guān)注和閱讀,希望這篇文章能為您帶來幫助。
歡迎轉(zhuǎn)載與分享,也請(qǐng)注明出處。
如果您有需要了解的關(guān)于BPC的其他內(nèi)容,也可以給我留言或發(fā)郵件(chaijw@126.com)
識(shí)別下面的二維碼,或者直接搜BPC123,或者SAP-BPC,可以關(guān)注本公眾號(hào)。