在Excel中的一系列单元格中生成具有特定值的字符串

时间:2010-12-09 14:12:50

标签: excel vba excel-vba excel-formula

例如,我在工作表中有4个单元格“数据” 有一些数据如bellow

 ----------------------------
 Param1|Param2|Param3|Param4|
 ----------------------------
 Value1|Value2|Value3|Value4|

我在同一个工作簿中放了一个按钮来生成一个包含这些值的字符串 遵循这种特定格式(说明性):

cmd.exe "-Value1-Value2-Value3-Value4-"

但我需要将这个生成的字符串放在另一个工作表的许多单元格中 与其他单元格中的值相关的特定条件,例如

-----------------------------------------------------
description | lorem ipsun lorem ipsun lorem ipsun lor|
------------------------------------------------------
command     | cmd.exe "-Value1-Value2-Value3-Value4-"|
------------------------------------------------------
description2| abra cadabra                           |
------------------------------------------------------
command     | cmd.exe "-Value1-Value2-Value3-Value4-"|
------------------------------------------------------

我需要将生成的字符串仅放在A1单元格具有值“command”

的行中

有人可以帮助解决这个问题,并提供一些vba代码吗?我不是一个懒惰的人,但我觉得在一个专门的论坛上提问比在一个混乱的网站上找到它更简单有效,而且快速解决这个问题是一个挑战

非常感谢

1 个答案:

答案 0 :(得分:0)

这是一些(非工作!)骨架代码,可以帮助您入门:

Sub Fill_In_These_Cells

    Dim InsertThis as string
    InsertThis = _
        activeworksheet.range("Value1'sRange") & "-" & _
        activeworksheet.range("Value2'sRange") & "-" & _
        activeworksheet.range("Value3'sRange") & "-" & _
        activeworksheet.range("Value4'sRange")

    Dim OutputRange as string
    OutputRange= "A1:B4"
    Dim i as integer
    For i = 1 to 4
        if activeworksheet.cells(i,1).value="Command" then _
            activeworksheet.cells(i,2).value=InsertThis
    Next i
End Sub

我很多人不知道答案,但为什么你首先将命令行放入Excel文件?为什么还要将它们与其他文本混合在一起?

修改

不知怎的,我今天早上醒来时写了伪代码,但还不足以完成那句话。

相关问题