如何将多行数据合并在一行内

simple666

5楼的方法简单，学习了

wf320722

连续按下CTRL+C两次（右边会弹出一个窗口）,原来有那具粘贴窗口的，不过被告关闭了，不知道应如何再显示出来

香川群子

原帖由 吾股丰登 于 2010-6-5 09:29 发表
7楼说到填充  就是这样的流程  给你们抓图演示一下

主要操作代码如下：
Columns("A:A").ColumnWidth = 100 '这里的列宽制定，暂定为100
Range("A1:A5").Justify  '这一步就是对选择范围内内容的合并重排
Columns("A:A").EntireColumn.AutoFit


进一步优化代码如下：
Sub Macro1()
    For i = 1 To Selection.Cells.Count
        L = L + Len(Cells(i)) * 2
    Next '遍历选择范围内的单元格，按每个字长需占2单位来估算总体长度。
    Columns("A:A").ColumnWidth = L '按估算长度改变列宽
    On Error Resume Next
    Selection.Justify  '对选择范围内文字内容作重排，注意不可含数字
    If Err.Number <> 0 Then
        MsgBox "number! 范围内有数字！不可操作"
        Err.Clear
    End If    '错误处理
    Selection.EntireColumn.AutoFit '对重排后的列宽作调整
End Sub

jyhxr

楼上高手真牛,学习了...
偶学VBA20年,就是到不了这一步哎...

香川群子

原帖由 jyhxr 于 2010-6-4 20:57 发表
=PHONETIC(A1:A5)

=PHONETIC()这个函数，本来是用来转换汉字到日文片假名的。

PHONETIC
See Also

Extracts the phonetic (furigana) characters from a text string.

Syntax

PHONETIC(reference)

Reference   is a text string or a reference to a single cell or a range of cells that contain a furigana text string.

Remarks

If reference is a range of cells, the furigana text string in the upper-left corner cell of the range is returned.
If the reference is a range of nonadjacent cells, the #N/A error value is returned.

Example

If cells C4 contains "東京都" and cell B7 contains "大阪府", the following are true:

=PHONETIC(C4) equals "トウキョウト"

=PHONETIC(B7) equals "オオサカフ"

_____________________________________________________

PHONETIC

请参阅

提取文本字符串中的拼音 (furigana) 字符。该函数只适用于日文版。

语法

PHONETIC(reference)

Reference    为文本字符串或对单个单元格或包含 furigana 文本字符串的单元格区域的引用。

说明

如果 reference 为单元格区域，则返回区域左上角单元格中的 furigana 文本字符串。
如果 reference 为不相邻单元格的区域，将返回错误值 #N/A。

示例

如果单元格 C4 中包含“東京都”，而单元格 B7 中包含“大阪府”，则有：

=PHONETIC(C4) 等于“トウキョウト”

=PHONETIC(B7) 等于“オオサカフ”


该函数的片假名转换功能，只能在日文环境下使用。。

在中文环境下的汉字，以及其他西文字符，将因为无法转换成日文片假名而维持原来的样子。
因此，仅仅留下了组合不同单元格文字的作用了。


正好被2楼【jyhxr】歪打正着用上了。

呵呵。

水平不是一般地高。

[ 本帖最后由 香川群子 于 2010-6-6 19:45 编辑 ]

xiaofangsir

太棒了，不知道有没有能像刚才这个倒推的方法没有，

就是将一个单元格内容分成几个单元格。收藏起来

梦都美

学习了，多谢！

香川群子

Function CS(Rng As Range, Optional InsWord = "", Optional SN = 1, Optional LN = 0) As String
    For i = 1 To Rng.Count
        s = s & IIf(s <> "" And Len(Rng.Cells(i)) >= SN, InsWord, "") & Mid(Rng.Cells(i), SN, IIf(LN = 0, Len(Rng.Cells(i)), LN))
    Next
    CS = s
End Function


函数第一参数Rng当然是指选定的单元格范围；

函数第二参数InsWord是可选参数，指插入符。
如果什么都不选，那么各单元格内容将没有间隔直接连在一起。
如果需要换行，那么输入char(10)作为插入符即可。
【但是，正常显示需要该单元格格式事先已经改为可以“自动换行”。】

或者可以选择插入空格" "、"，"、"；"、等等。

第三参数SN可选，含义为start no开始数值，
可以指定从每个单元格的第几个字符开始抽取内容。

第四参数LN可选，含义为last no结尾数值，
可以指定从每个单元格的第几个字符开始结束抽取内容。


大家可以试一试。

香川群子

原帖由 xiaofangsir 于 2010-6-6 17:35 发表
太棒了，不知道有没有能像刚才这个倒推的方法没有，

就是将一个单元格内容分成几个单元格。收藏起来

当然可以。第一首推做法，当然是直接手工用文本分列来处理。

不过这样做是分为许多列的。

如过要分为行，那么函数是做不到了，只有vba，

推荐代码如下：
Sub W_List()
    myWord = ActiveCell.Offset(0, -1)
    N = Len(myWord)
   
    s = InputBox("Start of the Word:", , 1)
    If s = "" Then Exit Sub
    '对话框输入起始数，之前的内容可被忽略。默认=1，即选择全部对象。
   
    LW = InputBox("Length of the Word:", , 1)
    If LW="" Then LW=1
    '选择分离字长，默认=1   
    LB = InputBox("Length of the Blank:", , 0)
    If LB="" Then LB=0   
    ’选择分离时需要忽略的字长，如一个空格，或一个逗号是LB=1。默认=0，即不做忽略。

    For i = s To N
        L = Mid(myWord, i, LW)
        ActiveCell = L
        If LW Or LB > 0 Then i = i + LW - 1 + LB
        If LW = 1 Then
            ActiveCell.Resize(, 5).NumberFormatLocal = "@"
            w = Asc(L)
            If w < 0 Then w = 16 ^ 4 + w
            ActiveCell.Offset(0, 1) = w
            ActiveCell.Offset(0, 2) = DH(w)
            
            w = AscW(L)
            If w < 0 Then w = 16 ^ 4 + w
            ActiveCell.Offset(0, 3) = w
            If w > 10000 Then CW = CW & L & " & ChrW(" & w & ")"
            ActiveCell.Offset(0, 4) = DH(w)
        End If
        ActiveCell.Offset(1, 0).Select
    Next i
    '选择拆分字长为1时，本宏过程还将给出改文字的双位码等信息。
    'ActiveCell.Resize(, 5).EntireColumn.AutoFit
    'ActiveCell = "CW=" & CW
    On Error Resume Next
    ActiveCell.End(xlUp).Select
End Sub

具体的作用，还是自己体会一下吧。

上面的宏是以定字长来拆分的，如果需要按特定字符来拆分，还需要改进。

zblkf

五谷丰登的做法，补充一点，用office剪贴板。选中A1:A5，复制，打开office剪贴板，然后在A10单元格双击，然后点击office剪贴板里刚刚放进去的内容。OK了。