excel2007三变量问题

有字符串L，和变量，A/B/C，现L为一个三字符字符串，变量A,b,c为单字符或空或某一个或两个空，现求当A,B,C某个为空时不参与比较，如某个不为空时参与比较，A和L的第一个比较，B和L的第二个，C和L的第三个比较，当除了有空的时空的不参与比较外，其余条件全为真时，或三个为空时，赋值L字符串到D，现求这个的VBA代码，谁回答完满意的话要多少分给多少分，现加三十分吧

Sub GetStr()
 Dim L$, A$, B$, C$
 Dim D$
 Dim MyCnt%
 L = "myc"
 A = "": B = "y": C = "c"
 If A = "" Or Mid(L, 1, 1) = A Then MyCnt = MyCnt + 1
 If B = "" Or Mid(L, 2, 1) = B Then MyCnt = MyCnt + 1
 If C = "" Or Mid(L, 3, 1) = C Then MyCnt = MyCnt + 1
 If MyCnt = 3 Then D = L
 
End Sub

和系统自带函数使用方法相同，a、b可以使用单元格

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息