vbscript 有用的宏：[2015年1月14日]

Posted 2021-05-22

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了vbscript 有用的宏：[2015年1月14日]相关的知识，希望对你有一定的参考价值。

Private Sub SectionCONCATENATE()
Dim nROWS As Long, nCOLM As Long, c As Long
    nROWS = Selection.Rows.Count
    nCOLM = Selection.Columns.Count

    If 1 = nCOLM And 2 < nROWS Then
        ActiveCell.Offset(0, 1).Select
        ActiveCell.FormulaR1C1 = "=""'"",RC[-1]," '""
        
        ActiveCell.Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "=CONCATENATE(R[-1]C,"","",RC[-1])"
        
        ActiveCell.Offset(-1, -1).Select
    
        Selection.Resize(nROWS, nCOLM).Select
        ActiveCell.Offset(nROWS - 1, 1).Select
    
        Range(Selection, Selection.End(xlUp)).Select
        Selection.FillDown
    
        ActiveCell.Offset(nROWS - 2, nCOLM - 1).Select
    
        Selection.Copy
        
    ElseIf 1 = nCOLM And 2 = nROWS Then
        ActiveCell.Offset(0, 1).Select
        ActiveCell.FormulaR1C1 = "=RC[-1]"
        
        ActiveCell.Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "=CONCATENATE(R[-1]C,"","",RC[-1])"
        
        ActiveCell.Select
        Selection.Copy
        
    ElseIf 1 = nROWS And 2 < nCOLM Then
        ActiveCell.Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "=R[-1]C"
        
        ActiveCell.Offset(0, 1).Select
        ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-1],"","",R[-1]C)"
        
        ActiveCell.Offset(-1, -1).Select
    
        Selection.Resize(nROWS, nCOLM).Select
        ActiveCell.Offset(1, nCOLM - 1).Select
    
        Range(Selection, Selection.End(xlToLeft)).Select
        ActiveCell.Select
        
            For c = 1 To nCOLM - 2
                ActiveCell.Offset(0, 1).Select
                ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-1],"","",R[-1]C)"
            Next c
        Selection.Copy
        
        
    ElseIf 1 = nROWS And 2 = nCOLM Then
        ActiveCell.Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "=R[-1]C"
        
        ActiveCell.Offset(0, 1).Select
        ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-1],"","",R[-1]C)"
        
        ActiveCell.Select
        Selection.Copy
    Else
        MsgBox ("Please select either more than 1 row or more than 1 column of data!")
    
    End If
End Sub

以上是关于vbscript 有用的宏：[2015年1月14日]的主要内容，如果未能解决你的问题，请参考以下文章

ruby 2015年9月14日时点

零基础学习云计算及大数据DBA集群架构师预科2015年12月14日周一

零基础学习云计算及大数据DBA集群架构师Linux Bash Shell编程及系统自动化2015年1月14日周四

[北京]Ruby on FreeWheel 技术交流分享[2015年7月25日]