//******* 操作 ************************************************* ■数式を値に変換 F2を押してからF9 ■CurrentRegion選択 Ctrl + Shift + * ■改行に置き換え CTRL + J //******* 関数 ************************************************* ■抽出 IF(COUNTI…

セルのｺﾋﾟｰ Range("A2").Copy Range("A3") Cells(2,1).Copy Cells(3,1)範囲ｺﾋﾟｰ Range("A2:B4").Copy Range("C3")列ｺﾋﾟｰ Columns("A").Copy Columns("B") Columns(1).Copy Columns(2)行ｺﾋﾟｰ Rows(1).Copy Rows(2)シート間 Worksheets("Sheet1").Range("A1").…

'*** ﾒｲﾝ ******************************************************** 'リストから吹き出しを作成する Sub mkFukidasi() Dim lastrow As Integer, i As Integer lastrow = getActiveRows() For i = 1 To lastrow If (matchPatternCell("^1-1-[0-9]+$", getCe…