风亦涵的个人资料 - RAT

风亦涵风亦涵

关注数: 41 粉丝数: 3 发帖数: 126 关注贴吧数: 2

求助各位大神，如何用函数公式将A列字段拆分后在C列分别列示？

大神！请问如何修改哪句代码才能取数呢？如上图所示，要修改如下代码里的哪一句才能生成对方科目呢？谢谢！ Sub XXL凭证生成对方科目() Dim data, i&, dic, temp, X& data = ThisWorkbook.Worksheets("XXL").UsedRange.Value Set dic = CreateObject("Scripting.Dictionary") For i = 2 To UBound(data) If InStr(dic(data(i, 1) & data(i, 2)), data(i, 4)) = 0 Then If data(i, 5) <> "" Then If dic(data(i, 1) & data(i, 2)) = "" Then dic(data(i, 1) & data(i, 2)) = data(i, 4) & "|" Else temp = Split(dic(data(i, 1) & data(i, 2)), "|") If temp(0) = "" Then temp(0) = data(i, 4) Else temp(0) = temp(0) & "，" & data(i, 4) End If dic(data(i, 1) & data(i, 2)) = Join(temp, "|") End If Else If dic(data(i, 1) & data(i, 2)) = "" Then dic(data(i, 1) & data(i, 2)) = "|" & data(i, 4) Else temp = Split(dic(data(i, 1) & data(i, 2)), "|") If temp(1) = "" Then temp(1) = data(i, 4) Else temp(1) = temp(1) & "，" & data(i, 4) End If dic(data(i, 1) & data(i, 2)) = Join(temp, "|") End If End If End If Next i For i = 2 To UBound(data) If data(i, 5) <> "" Then X = 1 Else X = 0 data(i, 8) = Split(dic(data(i, 1) & data(i, 2)), "|")(X) '刮号里的数字表示列号，第一个括号里的8则表示为第8列，生成的对方科目放在此列。 Next i ThisWorkbook.Worksheets("XXL").[A1].Resize(UBound(data), UBound(data, 2)) = data End Sub

各位大神，请问如何添加另外三个字段？ =IFERROR(MID(D2,FIND("预收账款",D2,1)+5,99),"") 如上公式所示，在FIND函数里，除了预收账款，还要增加：应收账款、预付账款、应付账款三个字段，请问如何添加呢？谢谢！

请教如何提取想要的字段内容？各位大神，如图所示，什么的公式可从A列提取想要的字段内容到B列呢？

请教各位大神，修改VBA语句！ Sub test() Dim ar, br(), i&, j&, mc ar = Range("a1").CurrentRegion '希望可以增加其他不连续的C1,F1等单元格 ReDim br(1 To UBound(ar), 1 To 1) With CreateObject("vbscript.regexp") .Pattern = "([1-9][0-9]*|0\.[0-9]+|[1-9][0-9]*\.[0-9]+)(?=O)" .Global = True For i = 1 To UBound(ar) If .test(ar(i, 1)) Then Set mc = .Execute(ar(i, 1)) For j = 0 To mc.Count - 1 br(i, 1) = br(i, 1) + Val(mc(j)) / 8 Next End If Next End With [J1:J2].Resize(UBound(br), 1) = br End Sub ----------------------------------------------------------------------------------------- 现在运行语句，只对A1单元格数据有效，请问如何修改为A1、C1、F1、H1等不连续单元格，同时取数运算。谢谢！

各位大神，这个计数怎么写公式呢？

1 下一页