自己录制的宏，如何实现自动化

wo5258598

由于工作需要，需要获取未来天气，点击城市可以更新温度，又用录制的宏自动提取出来（用的是分列），每次更新温度都要找到宏，点击运行，有点麻烦，那个大佬能帮着修改一下，点击城市自动获取全部结果，最后的温度是文本形式的。

NadrsSaber

感觉你需求不是很明确

wo5258598

NadrsSaber 发表于 2019-12-13 11:14
感觉你需求不是很明确

就是自动提取温度，温度是变化的，我需要的是最高温度，最低温度，提取出来是文本数字形式

wbperfect

1. Sub fl()
   
2. Dim i As Long
   
3. Dim str As String
   
4. For i = 4 To 18
   
5. Cells(i, 17) = Split(Split(Cells(i, 7), "°C")(0), "")
   
6. Cells(i, 18) = Replace(Split(Cells(i, 7), "°C")(1), "~", "")
   
7. 
   
8. Next
   
9. End Sub

复制代码

lilyhcn1

应该是由excel来计算，计算结果分享到互联网，这样更好玩。