摘要：Sub test() Dim str Dim i, j i = 1 j = 1 For r = 1 To Worksheets(2).UsedRange.Rows.Count For c = 1 To Worksheets(2).UsedRange.Columns.Count str = Worksheets(2).Cells(r, c).Value Worksheets(3).Cells(j, 1).Value = i Worksheets(3).Cells(j, 2).Value ... 阅读全文

摘要：using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Threading.Tasks;using System.Windows.Forms;using Excel = Microsoft.Office.Interop.Excel; namespace ExcelTest{ public partial class Form... 阅读全文

摘要：Sub Click()ActiveSheet.Pictures.Paste.SelectSelection.ShapeRange.ScaleWidth 1.4, msoTrueSelection.SendToBackEnd Sub 阅读全文