Excel 365中非连续单元格选择及数据自动化移动问题求助

方法一：手动筛选批量移动 #

• 选中数据区域的表头行，点击「数据」选项卡的「筛选」按钮
• 在sn列的筛选下拉框中，选择「非空」（或匹配sn的特定标识），筛选出所有包含sn的行
• 选中筛选后C列的sn对应值单元格，按Ctrl+C复制
• 选中A列对应的目标单元格，按Ctrl+V粘贴，最后取消筛选即可

方法二：VBA宏自动化处理 #

针对603条数据的批量操作，用VBA效率更高，步骤如下：

1. 打开copied_pasted_IDE_Py_Interpreter_output.xlsm，按Alt+F11打开VBA编辑器
2. 右键点击项目窗口中的工作簿名称，选择「插入」→「模块」
3. 粘贴以下代码（根据实际数据位置调整参数）：

Sub MoveSnValues()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换为你的实际工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 假设sn标识在C列，获取该列最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 遍历C列，移动sn下方的值到A列对应行
    For i = 1 To lastRow
        ' 这里判断C列单元格是否为sn，根据实际标识修改（比如改为ws.Cells(i, "C").Value = "sn"）
        If InStr(ws.Cells(i, "C").Value, "sn") > 0 Then
            ws.Cells(i, "A").Value = ws.Cells(i + 1, "C").Value
            ' 可选：清空原位置数据
            ws.Cells(i + 1, "C").ClearContents
        End If
    Next i
End Sub

4. 修改代码中的工作表名称、列标识（如C列不是sn所在列，替换为对应列字母）和sn的判断条件
5. 按F5运行宏，或回到Excel界面，通过「开发工具」→「宏」执行MoveSnValues

折线图绘制提示 #

完成sn值移动后，可再次用筛选功能选中所有包含sn的行，直接插入折线图，Excel会自动识别太阳风等离子体和IMF上下游值作为数据系列。

内容的提问来源于stack exchange，提问作者David Walden