1. excel 宏代码问题 rng.Offset(0, -1) = Application.Evaluate(rng.Text)高手来
Sub 批量保存TXT()
Dim Rng As Range
Dim obj, blogTxt
a=[a30000].end(3).row
For Each Rng In Range("A2:A" & a)
Myname = Rng
MyText = Rng.Offset(0, 1)
Set obj = CreateObject("scripting.filesystemobject")
Set blogTxt = obj.OpenTextFile(ThisWorkbook.Path & "\" & Myname & ".txt", 8, True)
blogTxt.Write MyText & vbCrLf
blogTxt.Close
Set obj = Nothing
Set blogTxt = Nothing
Next
End Sub
2. morng noong中文意思
Hong Kong
[英][ˈhɔŋˈkɔŋ, -ˌkɔŋ, ˈhɔ:ŋˈkɔ:ŋ, -ˌkɔ:ŋ]
[美][ˈhɑŋˈkɑŋ, -ˌkɑŋ, ˈhɔŋˈkɔŋ, -ˌkɔŋ]
n.香港;
例句：
Shares will be listed in hong kong and shanghai.
农业银行股票将同时在香港和上海证交所上市。
3. vba中代码：Replace(cells(1,rng.column).address(0,0),1,"")是啥意思呀
替换单元格（位于第一行，rng所在列）的相对地址中的数字1变成空。
实现的效果，其实就是提取rng所在列的索引
例如：rng是AB3，则这段代码得到AB
4. RNG random_generator(getTickCount())这段代码什么意思
不一样，rng 是控制随机数生成的。random 是用来生成随机数的。
如果你想让每次生成的随机数都一样（比如为了调试，或者对比），才需要用 rng 控制。否则一般用不上 rng 这个函数。
5. VBA 代码问题
代码不全，只能分析出下面的意思：这段代码的目的是在某一单元格区域（估计是某一列）内查找与某个内容相同的所有单元格，然后填充为绿色。
第一句是判断如果查找到了单元格Rng，就将这个单元格地址记录下来（第2行），然后进入Do循环将与某内容相同的所有单元格查找出来填充为绿色，这代码的写法是很精练完美的，只是循环的条件语句的两个条件中有一个多余的，这句可改为：
Loop While Rng.Address <> FindAddress
如果要想将While条件改到Do后面，代码会变得很复杂，完全没有这个必要。
6. Excel VBA中rng(1, 2),表示什么意思
rng是一个你自己定义的一个二维数组，rng(1,2)表示为1行2列，就象表格中的 B2
7. 互联网金融概念股都有哪些股票
你可以直接在炒股软件里面查找相应的板块的。如果还有个股问题，推荐关注nrng001。可直接向牛人提问。
8. Private Sub CommandButton1_Click() Dim rng As Range, c As Range Dim k As Integer Set rng = [f9:p14]
Private Sub CommandButton1_Click()
Dim rng As Range, c As Range
Dim k As Integer
Set rng = [f9:p14]‘设置rng为f9到p14所有单元格对象
For Each c In rng’循环整个rng对象
c = Int(Rnd() * 14 + 4) '随机一个4-14之间的数赋值给c
k = k + 1 '变量自身累加1
If k >= [d21] Then Exit For '如果k大于等于 单元格d21就退出循环
Next
End Sub