小编bdk*_*ong的帖子

我想在宏用数据填充它之后改变单元格中的内容.例如,我的宏将在单元格中放置750.我需要在750之后在单元格中放置一个"T",而不删除750.每次使用宏时750都会改变,所以我不能只使用ActiveCell.FormulaR1C1 = "750 T"

它将始终是一个添加了"T"的数字,但如果它被格式化为文本则很好.

下面的代码应该检查单元格是否为空,如果是空的,则将B26的内容粘贴到该单元格中.如果单元格不为空,则继续检查其下方的单元格.我尝试使用IsEmpty但是没有用,所以我认为Excel将所有空单元格默认为0.所以我尝试使用Empty(如下面的代码所示),但这也不起作用.

Sub Part1_Component_1_Foam_Color()
'
' Transfers Component 1 Data if Foam or color
'

'
Windows("Transfer Template.xlsm").Activate
Range("B26").Select
Selection.Copy
Windows("Protected_JD_Form.xls").Activate
    If Range("B27:C27") = Empty Then
        Range("B27:C27").Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False
            Exit Sub
    ElseIf Range("B28:C28") = Empty Then
        Range("B28:C28").Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False
            Exit Sub
    ElseIf Range("B29:C29") = Empty Then
        Range("B29:C29").Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False
            Exit Sub
    ElseIf Range("B30:C30") = Empty Then
        Range("B30:C30").Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, …

在我正在运行的宏中,我最后关闭了最后打开的Excel工作簿.当我运行它时,一切都关闭,除了一个没有电子表格的窗口,只有浅蓝色的背景.我使用了错误的命令还是没有办法关闭所有打开的窗口？

这是一篇询问我确切问题的帖子,但解决方案对我不起作用.

以下是我正在使用的最后两个命令:

'
' Closes Populated JD Form
'
    Workbooks(name).Close SaveChanges:=False

'
' Closes Transfer Template
'
    Workbooks("Transfer Template.xlsm").Close SaveChanges:=False

提前致谢!!!