急，excle高手请进

来源：百度知道 编辑：UC知道 时间：2024/07/07 22:20:01
在某单元格中录入某区域单元格的内容。
比如B2B3B4B5分别为1.0.1.0，要让C3内容变成1、0、1、0怎么做？
不要C1＝B2&“、”&B3...这种，因为数据可能几百个。

按下Alt+F11,插入一个模块，打开模块，吧下面代码粘贴进去，就是一个名为Misson1的宏。（宏的使用方法：在选中的Excel表下，选 工具->宏 ，或者直接Alt+F8）

Sub Misson1()
Dim Str As String
Str = ""
For i = 2 To ActiveSheet.UsedRange.Rows.Count
Str = Str & CStr(Range("B" & i).Value) & "、"
Next
Cells(3, 3) = Left(Str, Len(Str) - 1) '去掉最后一个"、"
End Sub

你说B列的值是从B2开始的，那么这里我假设你的意思是B1是列名（反正B1不能为空就行），不需要计算进去。
解说：
1、ActiveSheet.UsedRange.Rows.Count 是当前表内存在数据的总行数
2、Range("B2").Value不用说你也能猜到
3、Cells(RowIndex,ColumnIndex)是单元格的另一种表达方式。Cells(3,3)等同于Range("C3").Value。这里使用Range("B" & i).Value 而不用Cells(2,i)是因为实用后者不知道为什么无法读取0.
4、Cstr()函数强制将任何格式数据转为文本模式

做个宏，但要用到编程，请高手帮你吧。。