久久精品国产99国产精品,农村大炕弄老女人,人马配速90分钟,香蕉成人伊视频在线观看

怎么用COLUMNS查找兩列相同數值 vb中list怎樣水平滾動兩列?

vb中list怎樣水平滾動兩列?在“屬性”窗口中選擇Columns屬性,將屬性值更改為1,它將變為水平滾動。兩列。python與vba處理數據的區別?有一個csv文件,包含CNUM和COMPANY兩列

vb中list怎樣水平滾動兩列?

在“屬性”窗口中選擇Columns屬性,將屬性值更改為1,它將變為水平滾動。

兩列。

python與vba處理數據的區別?

有一個csv文件,包含CNUM和COMPANY兩列,數據包含空行和重復行。

要求:

1)刪除空白行;

2)重復的行數據只保留一行有效數據;

3)將公司列的名稱更改為company _ new ;

4)增加六列,即C _ COL, d _ COL ;e _ COL ;f _ COL ;G _ COL和 H _ COL。

首先,使用python熊貓來處理:將熊貓作為pd導入

將numpy作為np導入

從熊貓進口數據框,系列

d:

文件_對象打開(文件路徑)

Df_csv(file_obj) #讀取csv文件并創建數據幀。

Df (columns [cnum,company,c _ col,d _ col,e _ col,f _ col,g _ col,h _ col],fill _ valu:公司_新},到位真)#修改欄目名稱。

Ddff.dropna (axis0,howall) #刪除NAN,即文件中的空行。

Df [CNUM] df [cnum]。as type (int32) #將cnum列的數據類型指定為int32。

ddf . drop _ duplicates(subset[cnum,company _ new],keep first) #刪除重復行。

_csv(newpath,indexFalse,encodingGBK)

文件_()

如果__nam:

fil: users 12078 desktoppythocnum _ company . CSV

fil: users 12078 desktoppythocnum _ COMPANY _ output . CSV

處理數據(文件ath,文件保存路徑)

二、用VBA應對:選項基數1

選項顯式

副總管()

出錯時轉到錯誤處理

將wb標注為工作簿

將wb_out標注為工作簿

Dim sht作為工作表

Dim sht_out作為工作表

變暗rng As范圍

將已使用的行作為字節顯示

Dim usedrows_out As Byte

Dim dict_cnum_company作為賓語

Dim字符串文件路徑作為字符串

Dim str_n:賦值

str _ file _ path c: users 12078 desktoppythocnum _ company . CSV

str _ new _ file _ path c: users 12078 desktoptythocnum _ COMPANY _ output . CSV

設置WB checkAndAttachWorkbook(str _ file _ path)

設置sht (CNUM_COMPANY)

設置wb_out

創建一個CSV文件

設置sht_out wb_(CNUM_COMPANY_OUTPUT)

設置dict_cnum_company CreateObject(腳本。字典)

usedrows(getlastvidrow(sht,A),getlastvidrow(sht,B))

將標題COMPANY重命名為Company_New,刪除空白的重復行/行。

Dim cnum_company作為字符串

cnum _公司

對于sht中的每個rng。范圍(A1,A已用行數)

If ((0,1)。價值)公司T母雞

(0, 1).價值公司_新建

如果…就會結束

cnum_company - (0,1)。價值

If (cnum_company) -而不是dict_cnum_company。存在(- (0,1)。值)那么

dict_cnum_ - (0,1)。值,

如果…就會結束

下一個rng

循環dict的關鍵字,將關鍵字拆分成cnum數組和company數組。

Dim index_dict As Byte

Dim arr_cnum()

Dim arr _公司()

對于index_dict 0到UBound(dict_cnum_)

ReDim Preserve arr_cnum(1到UBound(dict_cnum_) 1)

ReDim Preserve arr_Company(1到UBound(dict_cnum_) 1)

arr _ cnum(index _ dict 1)Split(dict _ cnum _()(index _ dict),-)(0)

arr _ Company(index _ dict 1)Split(dict _ cnum _()(index _ dict),-)(1)

索引_字典

然后

將數組的值賦給單元格。

噓_出。Range(A1,A UBound(arr_cnum)) (arr_cnum)

噓_出。范圍(B1,B下限(arr_Company)) (arr_Company)

添加6列以輸出CSV fil:

Dim arr_columns()作為變量

arr_columns數組(C_col,D_col,E_col,F_col,G_col,H_col)

噓_出。范圍(C1:H1) arr_columns

調用checkAndCloseWorkbook(str _ file _ path,False)

呼叫檢查和clos:

調用checkAndCloseWorkbook(str _ file _ path,False)

調用checkAndCloseWorkbook(str _ new _ file _ path,False)

末端接頭

輔助功能:

獲取工作表中第N列的最后一行

函數getLastValidRow(in_ws作為工作表,in_col作為字符串)

getLastValidRow in_ws。單元格(in_,in_col)。結束(xlUp)。排

結束功能

函數checkAndAttachWorkbook(in _ WB _ path As String)作為工作簿

將wb標注為工作簿

將mywb顯示為字符串

mywb in_wb_path

對于工作簿中的每個wb

如果LCase(wb。全名)LCase(mywb) Then

設置checkAndAttachWorkbook wb

退出功能

如果…就會結束

然后

設置wb (in_wb_path,Updat:0)

設置checkAndAttachWorkbook wb

結束功能

函數checkAndCloseWorkbook(in _ WB _ path為字符串,in_saved為布爾值)

將wb標注為工作簿

將mywb顯示為字符串

mywb in_wb_path

對于工作簿中的每個wb

如果LCase(wb。全名)LCase(mywb) Then

savechang:in _ saved

退出功能

如果…就會結束

然后

結束功能

三、輸出結果:

兩種方法的輸出結果是相同的:

四、對比總結:

Python pand因為內置了許多數據處理方法,所以我們不 t不需要反復做輪子,用起來非常方便,代碼也簡單很多。

Excel VBA通過使用數組、字典等數據結構(實際需求中,數據量往往很大,所以有些地方沒有直接遍歷單元格的方法),以及處理字符串、數組、字典的多種方法來處理這個需求。文件的操作也很復雜。一旦出現錯誤,比python更難調試。代碼已經盡可能優化了,但還是遠遠超過Python。

主站蜘蛛池模板: 增城市| 龙胜| 辽宁省| 溆浦县| 田阳县| 克山县| 九台市| 大理市| 浦江县| 唐山市| 辽阳县| 霍城县| 大邑县| 韶山市| 海城市| 周宁县| 延川县| 铜鼓县| 双流县| 甘泉县| 钟山县| 涟水县| 马山县| 胶南市| 长治市| 建昌县| 吴川市| 南岸区| 香港 | 资溪县| 红安县| 民权县| 武强县| 延津县| 廊坊市| 锡林浩特市| 抚宁县| 彩票| 石景山区| 通江县| 花垣县|