⑴ EXCEL用宏程序實現匹配
試試下面這個代碼吧，在執行時，讓數據表成為當前工作表。
代碼會自動生成一個sh2工作表，並把最終結果顯示在這個表中，第二次執行代碼時，會刪除已有sh2表，重新再生成。
Sub 匹配()
Dim a(1 To 20)
'注意：使原始數據所在表為當前表，再執行本代碼
sh1 = ActiveSheet.Name
'如果找到sh2表，就刪除
For i = 1 To Sheets.Count
If Sheets(i).Name = "sh2" Then Sheets(i).Delete: Exit For
Next
ActiveWorkbook.Worksheets.Add.Name = "sh2" '生成一個新表
x = 1
Sheets(sh1).Select
'在新表中排成一列
For i = 1 To 20
a(i) = Sheets(sh1).Cells(65536, i).End(xlUp).Row
Range(Cells(1, i), Cells(a(i), i)).Copy Sheets("sh2").Cells(x, 1)
x = x + a(i)
Next
'對新表使用高級篩選去掉重復項
Sheets("sh2").Select
Range("A1:A" & x).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("b1"), Unique:=True
'去掉第一行（只剩第一行重復）
Range("b2:b" & x).Cut Destination:=Range("b1")
'排序
Range("b1:b" & x).Sort Key1:=Range("b1"), Order1:=xlAscending, Header:=xlNo
x = [b65536].End(xlUp).Row
For i = 1 To 20
For j = 1 To a(i)
For k = 1 To x
With Sheets(sh1)
If .Cells(j, i) = Cells(k, 2) Then Cells(k, i + 2) = .Cells(j, i)
End With
Next
Next
Next
'刪除A與B列
Columns("A:B").Delete Shift:=xlToLeft
End Sub
已經調整過了
⑵ 「宏程序」是什麼意思
大家都在問宏程序~其實說起來宏就是用公式來加工零件的,比如說橢圓,如果沒有宏的話,我們要逐點算出曲線上的點,然後慢慢來用直線逼近,如果是個光潔度要求很高的工件的話,那麼需要計算很多的點,可是應用了宏後,我們把橢圓公式輸入到系統中然後旦察段我們給出Z坐標並且每沒螞次加10um那麼宏就會自動算出X坐標並且進行切削,實際上宏在程序中主要起到的是運算作用..宏一般分為A類宏和B類宏.A類宏是以G65 Hxx P#xx Q#xx R#xx的格式輸入的,而B類宏程序則是 x0dx0a以直接的公式和語言輸入的和C語言很相似在0i系統中應用比較廣.由於現在B類宏程序的大量使 x0dx0a用很多書都進行了介紹這里我就不再重復了,但在一些老系統中,比如法蘭克OTD系統中由於它的MDI鍵盤上沒有公式符號,連最簡單的等於號都沒有,為此如果應用B類宏程序的話就只能在計算機上編好再通過RSN-32介面傳輸的數控系統中,可是如果我們沒有PC機和RSN-32電纜的話怎麼辦呢,那麼只有通過A類宏程序來進行宏程序編制了,下面我介紹一下A類宏的引用; x0dx0aA類宏是用G65 Hxx P#xx Q#xx R#xx或G65 Hxx P#xx Qxx Rxx格式輸入的xx的意思就是數值,是以um級的量輸入的,比如你輸入100那就是0.1MM~~~~~.#xx就是變數號,關於變數號是什麼意思再不知道的的話我也就沒治了,不過還是教一下吧,變數號就是把數值代入到一個固定的模譽地址中,固定的地址就是變數,一般OTD系統中有#0~~~#100~#149~~~#500~#531關閉電源時變數#100~#149被初始化成「空」，而變數#500~#531保持數據.我們如果說#100=30那麼現在#100地址內的數據就是30了,就是這么簡單.好現在我來說一下H代碼,大家可以看到A類宏的標准格式中#xx和xx都是數值,而G65表示使用A類宏,那麼這個H就是要表示各個數值和變數號內的數值或者各個變數號內的數值與其他變數號內的數值之間要進行一個什麼運算,可以說你了解了H代碼A類宏程序你基本就可以應用了,好,現在說一下H代碼的各個含義: x0dx0a以下都以#100和#101和#102,及數值10和20做為例子,應用的時候別把他們當格式就行, x0dx0a基本指令: x0dx0aH01賦值;格式:G65H01P#101Q#102:把#102內的數值賦予到#101中 x0dx0aG65H01P#101Q#10:把10賦予到#101中 x0dx0aH02加指令;格式G65 H02 P#101 Q#102 R#103,把#102的數值加上#103的數值賦予#101 x0dx0aG65 H02 P#101 Q#102 R10 x0dx0aG65 H02 P#101 Q10 R#103 x0dx0aG65 H02 P#101 Q10 R20 x0dx0a上面4個都是加指令的格式都是把Q後面的數值或變數號內的數值加上R後面的數 x0dx0a值或變數號內的數值然後等於到P後面的變數號中. x0dx0aH03減指令;格式G65 H03 P#101 Q#102 R#103,把#102的數值減去#103的數值賦予#101 x0dx0aG65 H03 P#101 Q#102 R10 x0dx0aG65 H03 P#101 Q10 R#103 x0dx0aG65 H03 P#101 Q20 R10 x0dx0a上面4個都是減指令的格式都是把Q後面的數值或變數號內的數值減去R後面的數 x0dx0a值或變數號內的數值然後等於到P後面的變數號中. x0dx0aH04乘指令;格式G65 H04 P#101 Q#102 R#103,把#102的數值乘上#103的數值賦予#101 x0dx0aG65 H04 P#101 Q#102 R10 x0dx0aG65 H04 P#101 Q10 R#103 x0dx0aG65 H04 P#101 Q20 R10 x0dx0a上面4個都是乘指令的格式都是把Q後面的數值或變數號內的數值乘上R後面的數 x0dx0a值或變數號內的數值然後等於到P後面的變數號中. x0dx0aH05除指令;格式G65 H05P#101 Q#102 R#103,把#102的數值除以#103的數值賦予#101 x0dx0aG65 H05 P#101 Q#102 R10 x0dx0aG65 H05 P#101 Q10 R#103 x0dx0aG65 H05 P#101 Q20 R10 x0dx0a上面4個都是除指令格式都是把Q後面的數值或變數號內的數值除以R後面的數 x0dx0a值或變數號內的數值然後等於到P後面的變數號中.(余數不存,除數如果為0的話會出現112報警) x0dx0a三角函數指令: x0dx0aH31 SIN正玄函數指令:格式G65 H31 P#101 Q#102 R#103;含義Q後面的#102是三角形的斜邊R後面的#103內存的是角度.結果是#101=#102*SIN#103,也就是說可以直接用這個求出三角形的另 x0dx0a一條邊長.和以前的指令一樣Q和R後面也可以直接寫數值. x0dx0aH32 COS余玄函數指令:格式G65 H32 #101 Q#102 R#103;含義Q後面的#102是三角形的斜邊 x0dx0aR後面的#103內存的是角度.結果是#101=#102*COS#103,也就是說可以直接用這個求出三角形的 x0dx0a另一條邊長.和以前的指令一樣Q和R後面也可以直接寫數值. x0dx0aH33和H34本來應該是TAN 和ATAN的可是經過我使用得數並不準確,希望有知道的人能夠告訴我是為什麼? x0dx0a開平方根指令: x0dx0aH21;格式G65 H21 P#101 Q#102 ;意思是把#102內的數值開了平方根然後存到#101中(這個指令是非常重要的如果在車橢圓的時候沒有開平方跟的指令是沒可能用宏做到的. x0dx0a無條件轉移指令: x0dx0aH80;格式:G65 H80 P10 ;直接跳到第10程序段 x0dx0a有條件轉移指令: x0dx0aH81 H82 H83 H84 H85 H86 ,分別是等於就轉的H81;不等於就轉的H82;小於就轉的H83;大於就轉的H84;小於等於就轉的H85;大於等於就轉的H86; x0dx0a格式:G65 H8x P10 Q#101 R#102;將#101內的數值和#102內的數值相比較,按上面的H8x的碼帶入H8x中去,如果條件符合就跳到第10程序段,如果不符合就繼續執行下面的程序段. x0dx0a用 戶 宏 程 序 x0dx0a能完成某一功能的一系列指令像子程序那樣存入存儲器，用一個總指令來它們，使用時只需給出這個總指令就能執行其功能。 x0dx0al 所存入的這一系列指令——用戶宏程序 x0dx0al 調用宏程序的指令————宏指令 x0dx0al 特點：使用變數 x0dx0a一． 變數的表示和使用 x0dx0a（一） 變數表示x0dx0a＃I(I=1,2,3,…)或＃[＜式子＞] x0dx0a例：＃5，＃109，＃501，＃[＃1＋＃2－12] x0dx0a（二） 變數的使用x0dx0a1． 地址字後面指定變數號或公式 x0dx0a格式：＜地址字＞＃I x0dx0a＜地址字＞－＃I x0dx0a＜地址字＞[＜式子＞] x0dx0a例：F＃103，設＃103＝15則為F15 x0dx0aZ－＃110，設＃110＝250則為Z－250 x0dx0aX[＃24＋＃18＊COS[＃1]] x0dx0a2． 變數號可用變數代替 x0dx0a例：＃[＃30]，設＃30＝3則為＃3 x0dx0a3． 變數不能使用地址O，N，I x0dx0a例：下述方法下允許 x0dx0aO＃1； x0dx0aI＃26.00×100.0; x0dx0aN＃3Z200.0； x0dx0a4． 變數號所對應的變數，對每個地址來說，都有具體數值范圍 x0dx0a例：＃30＝1100時，則M＃30是不允許的 x0dx0a5． ＃0為空變數，沒有定義變數值的變數也是空變數 x0dx0a6． 變數值定義： x0dx0a程序定義時可省略小數點，例：＃123＝149 x0dx0aMDI鍵盤輸一． 變數的種類 x0dx0a1. 局部變數＃1~＃33 x0dx0a一個在宏程序中局部使用的變數 x0dx0a例：A宏程序B宏程序 x0dx0a…… x0dx0a＃10＝20X＃10不表示X20 x0dx0a…… x0dx0a斷電後清空，調用宏程序時代入變數值 x0dx0a2. 公共變數＃100~＃149，＃500~＃531 x0dx0a各用戶宏程序內公用的變數 x0dx0a例：上例中＃10改用＃100時，B宏程序中的 x0dx0aX＃100表示X20 x0dx0a＃100~＃149斷電後清空 x0dx0a＃500~＃531保持型變數（斷電後不丟失） x0dx0a3. 系統變數 x0dx0a固定用途的變數，其值取決於系統的狀態 x0dx0a例：＃2001值為1號刀補X軸補償值 x0dx0a＃5221值為X軸G54工件原點偏置值 x0dx0a入時必須輸入小數點，小數點省略時單位為μm x0dx0a一． 運算指令 x0dx0a運算式的右邊可以是常數、變數、函數、式子 x0dx0a式中＃j，＃k也可為常量 x0dx0a式子右邊為變數號、運算式 x0dx0a1． 定義 x0dx0a＃I＝＃j x0dx0a2． 算術運算 x0dx0a＃I=＃j+＃k x0dx0a＃I=＃j－＃k x0dx0a＃I=＃j＊＃k x0dx0a＃I=＃j／＃k x0dx0a3． 邏輯運算 x0dx0a＃I＝＃JOK＃k x0dx0a＃I＝＃JXOK＃k x0dx0a＃I＝＃JAND＃k x0dx0a4． 函數 x0dx0a＃I＝SIN[＃j] 正弦 x0dx0a＃I＝COS[＃j] 餘弦 x0dx0a＃I＝TAN[＃j] 正切 x0dx0a＃I＝ATAN[＃j] 反正切 x0dx0a＃I＝SQRT[＃j]平方根 x0dx0a＃I＝ABS[＃j]絕對值 x0dx0a＃I＝ROUND[＃j]四捨五入化整 x0dx0a＃I＝FIX[＃j]上取整 x0dx0a＃I＝FUP[＃j]下取整 x0dx0a＃I＝BIN[＃j]BCD→BIN（二進制） x0dx0a＃I＝BCN[＃j]BIN→BCD x0dx0a1． 說明 x0dx0a1) 角度單位為度 x0dx0a例：90度30分為90．5度 x0dx0a2) ATAN函數後的兩個邊長要用「1」隔開 x0dx0a例：＃1＝ATAN[1]／[－1]時，＃1為了35．0 x0dx0a3) ROUND用於語句中的地址，按各地址的最小設定單位進行四捨五入 x0dx0a例：設＃1＝1．2345，＃2＝2．3456，設定單位1μm x0dx0aG91X－＃1；X－1．235 x0dx0aX－＃2F300；X－2．346 x0dx0aX[＃1＋＃2]；X3．580 x0dx0a未返回原處，應改為 x0dx0aX[ROUND[＃1]＋ROUND[＃2]]； x0dx0a4) 取整後的絕對值比原值大為上取整，反之為下取整 x0dx0a例：設＃1＝1．2，＃2＝－1．2時 x0dx0a若＃3＝FUP[#1]時，則＃3＝2．0 x0dx0a若＃3＝FIX[#1]時，則＃3＝1．0 x0dx0a若＃3＝FUP[#2]時，則＃3＝－2．0 x0dx0a若＃3＝FIX[#2]時，則＃3＝－1．0 x0dx0a5) 指令函數時，可只寫開頭2個字母 x0dx0a例：ROUND→RO x0dx0aFIX→FI x0dx0a6) 優先順序 x0dx0a函數→乘除（＊，1，AND）→加減（＋，－，OR，XOR） x0dx0a例：＃1＝＃2＋＃3＊SIN[＃4]； x0dx0a7) 括弧為中括弧，最多5重，園括弧用於注釋語句 x0dx0a例：＃1＝SIN[[[#2+#3]*#4+#5]*#6]；（3重） x0dx0a一． 轉移與循環指令 x0dx0a1．無條件的轉移 x0dx0a格式：GOTO1； x0dx0aGOTO＃10； x0dx0a2．條件轉移 x0dx0a格式：IF[＜條件式＞]GOTOn x0dx0a條件式： x0dx0a＃jEQ＃k 表示＝ x0dx0a＃jNE＃k 表示≠ x0dx0a＃jGT＃k 表示＞ x0dx0a＃jLT＃k 表示＜ x0dx0a＃jGE＃k 表示≥ x0dx0a＃jLE＃k 表示≤ x0dx0a例：IF[＃1GT10]GOTO100； x0dx0a… x0dx0aN100G00691X10； x0dx0a例：求1到10之和 x0dx0aO9500； x0dx0a＃1＝0 x0dx0a＃2＝1 x0dx0aN1IF[＃2GT10]GOTO2 x0dx0a＃1＝＃1＋＃2； x0dx0a＃2＝＃2＋1； x0dx0aGOTO1 x0dx0aN2M301．循環 x0dx0a格式：WHILE[＜條件式＞]DOm；（m＝1，2，3） x0dx0a… x0dx0a… x0dx0a… x0dx0aENDm x0dx0a說明：1．條件滿足時，執行DOm到ENDm，則從DOm的程序段 x0dx0a不滿足時，執行DOm到ENDm的程序段 x0dx0a2．省略WHILE語句只有DOm…ENDm,則從DOm到ENDm之間形成死循環 x0dx0a3．嵌套 x0dx0a4．EQNE時，空和「0」不同 x0dx0a其他條件下，空和「0」相同 x0dx0a例：求1到10之和 x0dx0aO0001； x0dx0a＃1＝0； x0dx0a＃2＝1； x0dx0aWHILE[＃2LE10]DO1； x0dx0a＃1＝＃1＋＃2； x0dx0a＃2＝＃2＋＃1； x0dx0aEND1； x0dx0aM30；