【非常有用的Excel自定义函数】

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

      Substitute函数每次只能对单个字符或字符串进行替换，如果要对某个目标字符串替换两个以上的内容，需要使用Substitute函数的嵌套。

     要能够进行多重替换，可以编制自定义函数，参考以下代码：

1. Function Subst(ParamArray arglist()) As String
   
2. Text = arglist(0)
   
3. For i = 1 To UBound(arglist) - 1 Step 2
   
4. Text = Replace(Text, arglist(i), arglist(i + 1))
   
5. Next i
   
6. Subst = Text
   
7. End Function

复制代码

使用效果如下：


附件下载：【非常有用的Excel自定义函数】





      Vlookup函数和Hlookup函数在进行查询时，必须以Table_array的首行或首列作为查询对象所在的基准位，当数据表中存在多个列标题或行标题时，使用上述两个函数进行查询就不太方便。

      要制作没有限定查询位置的自定义函数，可参考如下代码：

• 1. Function xlookup(lookupvalue, table_array As Range, Optional index = 1, Optional opt = 0)
     
  2. 
     
  3. For Each i In table_array
     
  4. 
     
  5. If i.Value = lookupvalue Then
     
  6. 
     
  7. If opt = 1 Then
     
  8. 
     
  9. xlookup = i.Offset(index, 0).Value
     
  10. 
      
  11. Else
      
  12. 
      
  13. xlookup = i.Offset(0, index).Value
      
  14. 
      
  15. End If
      
  16. 
      
  17. End If
      
  18. 
      
  19. Next
      
  20. 
      
  21. End Function

  复制代码
  
  

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：自定义函数 EXCEL 非常有用 xcel exce EXCEL 自定义函数 EXCEL 自定义函数 Vlookup Hlookup Substitute

感谢分享