Question

我在Excel / Google工作表中有一项要求，其中，如果我是第一次在A1中输入文本，则该值应在B1中自动填充，并且如果我编辑{{ 1}}，则更新后的值应在A1中自动填充，而B2的下一次更新应在A1中自动填充，依此类推...而不会擦除已创建的{ {1}}列值。

实际上希望为B3设置数据库。

Answer 1

对于Excel

在工作表代码区域中放置以下事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A1 As Range, N As Long, B1 As Range
    Set A1 = Range("A1")
    Set B1 = Range("B1")
    
    If Intersect(Target, A1) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        If B1.Value = "" Then
            B1.Value = A1.Value
        Else
            N = Cells(Rows.Count, "B").End(xlUp).Row + 1
            Cells(N, "B").Value = A1.Value
        End If
    Application.EnableEvents = True
End Sub

该代码支持保留对单元格 A1 所做更改的历史记录。

由于它是工作表代码，因此安装非常容易，并且自动使用：

右键单击Excel窗口底部附近的标签名称
选择查看代码-这将打开一个VBE窗口
将内容粘贴并关闭VBE窗口

如果您有任何疑问，请先在试用工作表上尝试一下。

如果保存工作簿，则宏将随其一起保存。如果您在2003年以后使用的是Excel版本，则必须保存该文件为.xlsm而不是.xlsx

要删除宏：

如上所述调出VBE窗口
清除代码
关闭VBE窗口

要全面了解有关宏的更多信息，请参见：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏（工作表代码）的更多信息，请参见：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能使其正常工作！

Answer 2

我只是在下面尝试过，而且似乎也可以工作：

    function onEdit(evt){
      
    var a1Value = SpreadsheetApp.getActive().getSheetByName('forum').getRange('A1').getValue();
    
      for(var i =1;i<11;i++){
        var b1Obj = SpreadsheetApp.getActive().getSheetByName('forum').getRange('B'+i);    
        if(b1Obj.getValue() == ''){
          b1Obj.setValue(a1Value);
          SpreadsheetApp.getActive().getSheetByName('forum').getRange('A1').setValue('');
          break;
        }
      }
    
    }

在其他单元格中创建Excel或Google表格单元格值

2 个答案: