[發問] VBA_各工作表的T3(含)右邊各數字~有重複者只取第1個之語法。

Airman

2016-0124-Q-1 -.rar (142.35 KB)

下載次數: 3

2016-1-24 16:20

說明︰
T3=100- (J:P有顯示R5值)的I欄期數且T3<51

因為每一期共有7個不重複的號碼(即=R5值)，所以Sheet1~ Sheet49的T3(含)右邊各數字會有7個相同的數字~
EX1︰TEST_1(目前)~42=100-58~
Sheet1的T3=42，Sheet11的V3=42，Sheet15的T3=42，Sheet24的U3=42，Sheet27的V3=42，Sheet37的U3=42，Sheet46的U3=42
(Sheet n即為I欄58期的開獎號碼)

EX2︰TEST_1(目前) )~43=100-57~
Sheet2的U3=43，Sheet3的U3=43，Sheet6的U3=43，Sheet7的V3=43，Sheet26的T3=43，Sheet30的U3=43，Sheet49的W3=43
(Sheet n即為I欄57期的開獎號碼)

其餘...類推。

需求︰
想在列31增加下列的語法~
Sheet1~ Sheet49的T3(含)右邊的各重複數字數字只取第1個，其餘的6個相同數字略過~
EX1︰TEST_1(需求)
Sheet1的T3=42，其餘(後)的各Sheet的第3列不再顯示42
EX2︰TEST_1(需求)
Sheet1的U3=41，其餘(後)的各Sheet的第3列不再顯示41
其餘...類推。

EX3︰TEST_1(需求)
Sheet2的T3=44，其餘(後)的各Sheet的第3列不再顯示44
EX4︰TEST_1(需求)
Sheet2的U3=43，其餘(後)的各Sheet的第3列不再顯示43
其餘...類推。

詳如附件圖示。

請問︰列31之後的語法要如何編撰?

以上  懇請各位先進、前輩不吝賜教!  謝謝!

Airman

回復 1# Airman
呵~呵~不好意思，想到一個最簡單且能達到需求的方法~
If a = Sheets(s).[R5] Then
假設︰.Cells(5, t) = Cells(a.Row, 9)    '即T5=J欄︰P欄有顯示R5值的I欄期數值
如果要改為
T5=P欄有顯示R5值的I欄期數值
請問︰
.Cells(5, t) = P欄有顯示R5值的I欄期數值之語法要如何編撰?

以上  懇請各位先進、前輩不吝賜教!  謝謝!

准提部林

還是看不懂需求，猜一下：

tVal%, ValChk%(1 To 50)　sub 開頭先定義這２個變數

If a = Sheets(s).[R5] Then
　　tVal = 100 - Cells(a.Row, 9).Value
　　If tVal < 51 Then
　　　　If ValChk(tVal) = 0 Then
　　　　　.Cells(5, t) = Cells(a.Row, 9) 'J:P顯示R5值的I欄期數值
　　　　　.Cells(3, t) = tVal  '期距
　　　　　ValChk(tVal) = 1
　
　　　　　.Cells(1, t) = "=IF(Count(offset(A7,,COLUMN()-1," & e & ")),"""",1)" 'T1~Tn公式
　　　　　.Cells(1, t + 1) = "=1"
　　　　　.Cells(1, t).Interior.ColorIndex = 6 'T1標示Color
　　　　　t = t + 1
　　　　End If
　　End If
　　q = q + 1
End If

Airman

回復 3# 准提部林

准大:
測試結果答案和原主檔相同。

可能是因小弟的說明太冗長，所以令您混淆。
小弟的需求簡扼的說:
將Sheet1~ Sheet49的T3(含)右邊各重複的數字，只取其一(第1個)，其餘重複數字的各欄移除。
以上   敬請惠予賜教為禱!謝謝您!

倘對敝說明尚有不明瞭之處 ，亦請您再次提出~小弟當再詳加補充~感恩  

或者是~請您賜教如何將~
.Cells(5, t) = Cells(a.Row, 9)
有顯示R5值的當列之I欄期數值
改為
P欄有顯示R5值的I欄期數值
~亦可~謝謝您

准提部林

回復 4# Airman


Sheet1的T3=42，其餘(後)的各Sheet的第3列不再顯示42　

照此規則，最後面的工作表應沒有Ｔ３的資料，全集中在前面，

做了排除，不可能與原主檔效果相同：
主檔.rar (54.98 KB)

下載次數: 1

2016-1-25 12:16

　

Airman

回復 5# 准提部林
准大:您好!
謝謝您於百忙中撥冗賜教~
測試OK了~感恩