Excel Macros 的使用
接触excel多了之后，发现很多好的使用方法。
比如 自带的一些函数， vlookup 之类的。
后来发现，有些数据需要做特殊处理的，自带函数已经不能满足了，然后发现了Macros， 开始尝试去学习VBA 看代码，发现好难，因为带了好多的参数。
今天发现通过录制在修改easy很多 。
发一个处理response的函数：
把 http://fund.eastmoney.com/Data/FavorCenter_v3.aspx?o=r&rnd=1501031140851 这个的返回提取出来三列我需要的数据，一个是基金的名字，昨天的值和今天的估值。还挺好用的。
‘函数名
Sub TEST3()
'OtherChar _:="]"
'use ] to split string 用] 去切割response
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="]", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _
Array(19, 1)), TrailingMinusNumbers:=True
'Transpose:=True row to column ，把切割后的结果 行转换为列
Range("A1:Z1").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
' split string using Comma:=True 在继续用逗号切割
Range("A2:A28").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, OtherChar _
:="]", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _
Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array( _
25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), _
Array(32, 1)), TrailingMinusNumbers:=True
Range("D31").Select
'delete usless column and row 把没用的行和列删除 ，因为分段删除，第二次删除是在第一次删除的结果之上，所以标值会每次删除后都改变
Rows("28:28").Select
Selection.Delete Shift:=xlUp
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
Columns("B:V").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("E:H").Select
Selection.Delete Shift:=xlToLeft
' limit to decimal 0.00 保留两位小数
Columns("B:B").Select
Application.CutCopyMode = False
Selection.NumberFormatLocal = "0.00_ "
End Sub