Sub ht(Html, Range) s1 = Split(Html, "<tr") rn = UBound(s1) cn = UBound(Split(s1(2), "
Contact information: 12345678
</body> </html> 发票中文 <! DOCTYPE html> <html xmlns:th="http://www.thymeleaf.org"> <style> body { font-family: SimSun ${'万瑞特服饰标牌有限公司'}">Contact information: 12345678
</body> </html